VBWEB - Verificar se o ano é bissexto sem usar a função IsDate()

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Dicas
	Visual Basic (Datas/Números/Strings)

Título da Dica: Verificar se o ano é bissexto sem usar a função IsDate()

Postada em 11/3/2003 por Sidnei

Sidnei@winsoft-es.com.br

Private Sub Command1_Click()
Dim Ano As Integer
Ano = CInt(InputBox("Informe o ano:"))
   MsgBox Ano_Bissexto(Ano)
End Sub
Private Function Ano_Bissexto(ByVal AnoPass As Integer) As Boolean
   If AnoPass / 4 = AnoPass \ 4 Then ' Se o resultado da divisão real "X/Y"
      Ano_Bissexto = True            ' for igual ao resultado da divisão inteira
      Exit Function                  ' "X\Y" então é bissexto.
   End If
End Function

:-)
T+


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