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

Gracias emilio tu ayuda me ha sido muy util

"Emilio" escribió:

¡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
>

:-))

Saludos a
Emilio
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.com/emilio


"Petrus" escribió en el mensaje
news:

Gracias emilio tu ayuda me ha sido muy util

"Emilio" escribió:


> ¡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
> >
>
>
>