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:  Verificar se o ano é bissexto sem usar a função IsDate()
Postada em 11/3/2003 por Sidnei      Clique aqui para enviar email para o autor  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
Topo da página