USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página