Tarea automatica al cambio de mes
Publicado por David (116 intervenciones) el 13/07/2004 19:57:21
Hola. Tengo una tarea q se tiene q realizar automaticamente cuando cambio de mes. Hice este codigo pero no se si funciona y me parece un poco chapuza. Alguien sabe como se puede hacer? Gracias y saludos
Dim fecha As Date
fecha = ' La cojo de la base de datos
Dim ahora As Date
ahora = Now() ' La fecha de hoy
If ahora.Day = 1 Then
If fecha.Month < ahora.Month Then
fecha = Now
TAREA
end if
end if
Dim fecha As Date
fecha = ' La cojo de la base de datos
Dim ahora As Date
ahora = Now() ' La fecha de hoy
If ahora.Day = 1 Then
If fecha.Month < ahora.Month Then
fecha = Now
TAREA
end if
end if
Valora esta pregunta


0