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)