USUÁRIO:
SENHA:
SALVAR LOGIN ?
Dicas
Visual Basic
(Datas/Números/Strings)
Título da Dica:
Verificar se o Ano é Bissexto
Postada em 13/12/2002 por
Salgadinho
' Mode de Usar:
' 1) Cole o código abaixo no form
' 2) Adicione um TextBox e um CommandButton no Form
Private Function Bissexto(Ano As String)
Dim Data As String
If Ano = "" Then Exit Function
Data = ("29-2-" + Ano)
Bissexto = IsDate(Data)
End Function
Private Sub Command1_Click()
If Bissexto(Text1.Text) Then
MsgBox "O Ano é Bissexto!"
Else
MsgBox "O Ano nao é Bissexto!"
End If
End Sub
CyberWEB Network Ltda. © Copyright 2000-2024 - Todos os direitos reservados.
Powered by
HostingZone -
A melhor hospedagem para seu site
