Saltar al contenido

Ejemplo de código del primer día del mes de vba

Nuestros investigadores estrellas han agotado sus provisiones de café, buscando noche y día por la resolución, hasta que Miranda halló la solución en Gogs y en este momento la comparte con nosotros.

Ejemplo 1: excel vba primer día laborable mes

' Returns first working day of month (except public holidays)PublicFunction FirstWorkingDayOfMonth(ByVal pDate AsDate)AsDate
    FirstWorkingDayOfMonth =CDate(Application.WorkDay(DateSerial(Year(Date),_
        Month(Date),1),0))EndFunctionPublicSub TestMe()
    MsgBox FirstWorkingDayOfMonth(Date)EndSub

Ejemplo 2: excel vba primer día del mes

' Returns last day of monthPublicFunction LastDayOfMonth(ByVal pDate AsDate)AsDate
    LastDayOfMonth = DateSerial(Year(pDate), Month(pDate)+1,0)EndFunction' Returns first day of monthPublicFunction FirstDayOfMonth(ByVal pDate AsDate)AsDate
    FirstDayOfMonth = DateSerial(Year(pDate), Month(pDate),1)EndFunctionPublicSub TestMe()
    MsgBox LastDayOfMonth(Date)
    MsgBox FirstDayOfMonth(DateSerial(2020,2,18))EndSub

Comentarios y puntuaciones

Recuerda algo, que tienes la capacidad de decir si diste con el hallazgo.

¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)


Tags : /

Utiliza Nuestro Buscador

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *