horario de verano

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
así mismo ;-)

'***********************************************************************************
'* Devuelve la fecha del cambio de Horario de Verano (ultimo domingo de
Marzo)
'* del año pasado como argumento y en su defecto el actual
'* uso: txtVerano = CambioHorarioVerano
'* ESH 01/04/03 18:50
'***********************************************************************************

Public Function CambioHorarioVerano(Optional intAño As Integer) As Date

Dim datDia As Date, _
bytDia As Byte

If intAño = 0 Then intAño = Year(Date)

' horario de verano (último domingo de Marzo)
bytDia = 31
datDia = DateSerial(intAño, 3, bytDia)

' busco el ultimo domingo (primero empezando por el final)
Do While Weekday(datDia) <> vbSunday
datDia = DateSerial(intAño, 3, bytDia)
bytDia = bytDia - 1
Loop

CambioHorarioVerano = datDia

End Function ' CambioHorarioVerano


'***********************************************************************************
'* Devuelve la fecha del cambio de Horario de Invierno (ultimo domingo de
Octubre)
'* del año pasado como argumento y en su defecto el actual
'* uso: txtInvierno = CambioHorarioInvierno
'* ESH 01/04/03 18:55
'***********************************************************************************

Public Function CambioHorarioInvierno(Optional intAño As Integer) As Date

Dim datDia As Date, _
bytDia As Byte

If intAño = 0 Then intAño = Year(Date)

' horario de invierno (ultimo domingo de Octubre)
bytDia = 31
datDia = DateSerial(intAño, 10, bytDia)

' busco el ultimo domingo (primero empezando por el final)
Do While Weekday(datDia) <> vbSunday
datDia = DateSerial(intAño, 10, bytDia)
bytDia = bytDia - 1
Loop

CambioHorarioInvierno = datDia

End Function ' CambioHorarioInvierno


Saludos a

Emilio [MS-MVP Access 2005]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.com/emilio

"Petrus" escribió en el mensaje
news:

Hola
estoy generando una hoja de calculo y en ella tengo una columna de fechas
y
tengo que comparar la fecha y para ver si esta dento o fuera de un rango
de
fechas en el año, como si fuera el horario de verano,

el problema por ejemplo es:
saver como encuentro el primer domigo de abril o de cualquier mes

gracias
espero me puedan alludar