Private Sub AjustarLosColores()
Dim Fecha1a As Date = CType(“06/04/23”, Date)
Dim Fecha2a As Date = CType(“09/04/23”, Date)
Dim Fecha3a As Date = CType(“23/06/23”, Date)
Dim Fecha4a As Date = CType(“25/06/23”, Date)
Dim Fecha5a As Date = CType(“14/07/23”, Date)
Dim Fecha6a As Date = CType(“31/08/23”, Date)
Dim Fecha7a As Date = CType(“30/06/23”, Date)
Dim Fecha8a As Date = CType(“02/07/23”, Date)
Dim Fecha9a As Date = CType(“07/07/23”, Date)
Dim Fecha10a As Date = CType(“09/07/23”, Date)
Dim Fecha1b As Date = CType(“01/04/23”, Date)
Dim Fecha2b As Date = CType(“05/04/23”, Date)
Dim Fecha3b As Date = CType(“01/06/23”, Date)
Dim Fecha4b As Date = CType(“22/06/23”, Date)
Dim Fecha5b As Date = CType(“26/04/23”, Date)
Dim Fecha6b As Date = CType(“13/07/23”, Date)
Dim Fecha7b As Date = CType(“12/10/23”, Date)
Dim Fecha8b As Date = CType(“15/10/23”, Date)
Dim Fecha9b As Date = CType(“28/10/23”, Date)
Dim Fecha10b As Date = CType(“01/11/23”, Date)
Dim Fecha11b As Date = CType(“02/12/23”, Date)
Dim Fecha12b As Date = CType(“06/12/23”, Date)
Dim Fechaactual As Date = CType(TBentrada.Value.Date.ToString, Date)
If Fechaactual >= Fecha1a And Fechaactual <= Fecha2a Or Fechaactual >= Fecha3a And Fechaactual <= Fecha4a Or Fechaactual >= Fecha5a And Fechaactual <= Fecha6a Or Fechaactual >= Fecha7a And Fechaactual <= Fecha8a Or Fechaactual >= Fecha9a And Fechaactual <= Fecha10a Then
CBtemporada.Text = "Alta"
ElseIf Fechaactual >= Fecha1b And Fechaactual <= Fecha2b Or Fechaactual >= Fecha3b And Fechaactual <= Fecha4b Or Fechaactual >= Fecha5b And Fechaactual <= Fecha6b Or Fechaactual >= Fecha7b And Fechaactual <= Fecha8b Or Fechaactual >= Fecha9b And Fechaactual <= Fecha10b Or Fechaactual >= Fecha11b And Fechaactual <= Fecha12b Then
CBtemporada.Text = "Media"
Else
CBtemporada.Text = "Baja"
End If
end sub