Hola necesito calcular la estacion del año a partir de una fecha y he hecho esto:
Dim mes As Integer
Dim dia As Integer
Dim fecha As Date
mes = fecha.Month
dia = fecha.Day
'If (mes = 12 And dia >= 21 Or mes = 1 Or mes = 2 Or mes = 3 And dia < 21) Then
'TextBox2.Text = "es invierno "
'Else
'If (mes = 3 And dia > 21 Or mes = 4 Or mes = 5 Or mes = 6 And dia < 21) Then
'TextBox2.Text = "primavera"
' Else
'If (mes = 6 And dia > 21 Or mes = 7 Or mes = 8 Or mes = 9 And dia < 23) Then
'TextBox2.Text = "verano"
'Else
'If (mes = 9 And dia > 23 Or mes = 10 Or mes = 11 Or mes = 12 And dia < 21) Then
'MsgBox("otoño")
'End If
'End If
'End If
'End If
El problema es que siempre me saca que es invierno.Haber si me pueden ayudar que lo tengo que entregar mañana y estoy atascado.Un saludo
