|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Último dia do mês de forma recursiva
|
 |
|
|
|
Postada em 23/1/2008 por ghost_jlp
Private Function f_UltimoDia(ByVal mes As Byte, ano As Integer, Optional dia As Byte = 31) As Byte
Dim Data As String
Data = dia & "/" & mes & "/" & ano
If IsDate(Data) Then
f_UltimoDia = dia
Else
dia = dia - 1
f_UltimoDia = f_UltimoDia(mes, ano, dia)
End If
End Function
MsgBox f_UltimoDia(2, 2008)
Até a próxima! :P
|
|
|
|
|
