Início
poy 4/6/2013, 20:47Alguem conhece rotina para determinar se o ano é bisexto ?
3 participantes
determinar se o ano é bisexto
poy- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 71
Registrado : 10/01/2012
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Ola, dando uma procurada aqui mesmo, veja o que encontrei,
http://maximoaccess.forumeiros.com/t6515-entenda-o-ano-bissexto-e-saiba-como-calcula-lo
http://maximoaccess.forumeiros.com/t6515-entenda-o-ano-bissexto-e-saiba-como-calcula-lo
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8499
Registrado : 05/11/2009
Boa noite,
Function Bissexto(intAno As Integer) As Boolean
'código criado por Alexandre Neves, do Fórum MaximoAccess
'o código pode ser utilizado livremente, desde que mencionado este cabeçalho
If intAno / 4 = Int(intAno / 4) Then
If intAno / 100 = Int(intAno / 100) Then
If intAno / 400 = Int(intAno / 400) Then Bissexto = True Else Bissexto = False
Else
Bissexto = True
End If
Else
Bissexto = False
End If
End Function
Function Bissexto(intAno As Integer) As Boolean
'código criado por Alexandre Neves, do Fórum MaximoAccess
'o código pode ser utilizado livremente, desde que mencionado este cabeçalho
If intAno / 4 = Int(intAno / 4) Then
If intAno / 100 = Int(intAno / 100) Then
If intAno / 400 = Int(intAno / 400) Then Bissexto = True Else Bissexto = False
Else
Bissexto = True
End If
Else
Bissexto = False
End If
End Function
.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8499
Registrado : 05/11/2009
Opá, Mestre
Estive com a dúvida aberta a criar a função.
Abraços,
Estive com a dúvida aberta a criar a função.
Abraços,
.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
Tópicos semelhantes
