Gboese
|
SANTO ANDRÉ
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 23/02/2005 11:30 hs
Como façoi para saber o primeiro e o último dia do mês atual? Grato Gustavo |
|
|
|
|
|
Jayme
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 23/02/2005 11:55 hs
' no form MsgBox InicioDoMes(Date)
MsgBox FimDoMes(Date)
' no módulo Public Function InicioDoMes(Dia As Date) As Date
InicioDoMes = DateSerial(Year(Dia), Month(Dia), 1)
End Function
Public Function FimDoMes(Dia As Date) As Date
FimDoMes = DateSerial(Year(Dia), Month(Dia) + 1, 0)
End Function
Jayme |
|
|
|
|
|
Postada em 23/02/2005 13:03 hs
primeirodia = cdate("01" & "/"& cstr(format(date(), "mm/yyyy"))) ultimodia = dateadd("d",-1,cdate("01" & "/"& cstr(format(date(), "mm/yyyy")))) |
|
|
|
