Determinar el primer y último día del mes de una fecha dada

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
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s