Este procedimiento recibe en el primer parámetro la fecha del mes que se quiere ver el primer y ultimo día del mes. Luego la función devuelve en "FechaPrimer" y "FechaUltimo" el primer y último día del mes, respectivamente.
Sub PrimerUltimoDia(ByVal Fecha As Date, ByRef FechaPrimer As String, ByRef FechaUltimo As String)
FechaPrimer = DateSerial(Year(Fecha), Month(Fecha) + 0, 1)
FechaUltimo = DateSerial(Year(Fecha), Month(Fecha) + 1, 0)
End Sub
Posted
lun, sep 13 1999 20:26
by
Maverick