Fechas
Hola! Espero que me puedas ayudar...
Bien tengo un cuadro de texto en el que se introduce 4 letras (códigos oaci de los aeropuertos) bien lo que quiero hacer es lo siguiente: si en ese cuadro de texto la primera letra introducida es una G y contemplando la FECHA Y HORA ACTUAL DEL ORDENADOR ver si esta comprendida entre el 31/03/yyyy a las 01:00 AM hasta el 31/10/yyyy a las 03:00 AM si lo esta entonces msgbox "UTC+1" y si no msgbox"UTC"
Espero que me puedas ayudar ... Gracias...
Bien tengo un cuadro de texto en el que se introduce 4 letras (códigos oaci de los aeropuertos) bien lo que quiero hacer es lo siguiente: si en ese cuadro de texto la primera letra introducida es una G y contemplando la FECHA Y HORA ACTUAL DEL ORDENADOR ver si esta comprendida entre el 31/03/yyyy a las 01:00 AM hasta el 31/10/yyyy a las 03:00 AM si lo esta entonces msgbox "UTC+1" y si no msgbox"UTC"
Espero que me puedas ayudar ... Gracias...
1 Respuesta
Respuesta de soria4xse
1
En un modulo hacemos una función que devuelve verdadero o falso en función de la fecha que le pasemos:
Function PRUFEC(unafec As Date) As Boolean
'31/03/yyyy a las 01:00 AM
Dim di As Date
di = DateSerial(Year(Date), 3, 1)
di = DateAdd("h", 1, di)
'31/10/yyyy a las 03:00 AM
Dim df As Date
df = DateSerial(Year(Date), 10, 31)
df = DateAdd("h", 3, df)
If di >= unafec Then
If df <= unafec Then
PRUFEC = True
End If
End If
End Function
Function PRUFEC(unafec As Date) As Boolean
'31/03/yyyy a las 01:00 AM
Dim di As Date
di = DateSerial(Year(Date), 3, 1)
di = DateAdd("h", 1, di)
'31/10/yyyy a las 03:00 AM
Dim df As Date
df = DateSerial(Year(Date), 10, 31)
df = DateAdd("h", 3, df)
If di >= unafec Then
If df <= unafec Then
PRUFEC = True
End If
End If
End Function
En el evento después de actualizar del cuadro de texto:
Private Sub control_afterupdate()
If Left(Me.control, 1) = G Then
If PRUFEC(Date) = True Then
MsgBox "UTC+1"
Else
MsgBox "UTC"
End If
End If
End Sub
Private Sub control_afterupdate()
If Left(Me.control, 1) = G Then
If PRUFEC(Date) = True Then
MsgBox "UTC+1"
Else
MsgBox "UTC"
End If
End If
End Sub
