Access inicio | | | | | |
Olá,
Seja Bem Vindo ao Blog.

Conecte-se ou registre-se e utilize gratuitamente este equipamento, temos exemplos referente a criação de banco de dados e desenvolvimento de softwares e programas utilizando o Microsoft Access.


Administração do Blog AccessDoProgramador.

CALCULAR A IDADE CONFORME DATA FIXADA

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

01022014

Mensagem 

CALCULAR A IDADE CONFORME DATA FIXADA






Olá
Na fixa de inscrição dos alunos, fiz, ha um campo aonde sai o calculo da idade dos aluno, ficou ótimo...( anos,messes,dias).
Porém, agora eu tenho que saber pela idade do aluno em que turma colocá-lo. A data fixada é 15/06 não importa o ano, todo aluno que faz aniversario antes dessa data irá para uma classe determinada, e claro , aqueles depois dessa data irá para outra.
Ex.  
É como se o "Ano" virasse nessa data.
Então na faixa de cadastro dos alunos teria um campo com o calculo da idade e outro com esse.
Seria possível ter uma resposta.
Grato
MARCELO


MarceloCajuru

Brasil


Voltar ao Topo Ir em baixo

Compartilhar este artigo em: BookmarksDiggRedditDel.icio.usGoogleLiveSlashdotNetscapeTechnoratiStumbleUponNewsvineFurlYahoo!Smarking

CALCULAR A IDADE CONFORME DATA FIXADA :: Comentários

avatar

Mensagem em Dom 2 Fev 2014 - 13:06 por Dilson

Olá Marcelo, seja bem vindo a esta sala de discussão.

A partir de seu formulário coloque no evento Após atualizar do campo que digita a data de aniversário:

Dim DataQuinze As Date
Dim DataAniv As Date
Dim DataDesmembrada As String, q

DataDesmembrada = Me.txtDataNasc
q = Split(DataDesmembrada, "/")
DataQuinze = "15/06/" & Year(Date)
DataAniv = q(0) & "/" & q(1) & "/" & Year(Date)

If DataAniv < DataQuinze Then
           Me.txtClasse.Value = "Antes"
    ElseIf DataAniv > DataQuinze Then
           Me.txtClasse.Value = "Depois"
 Else
           Me.txtClasse.Value = "Indefinido"
End If



Caso data aniversário for 15/06 e data base quinze for 15/06 a classe receberá "Indefinido". (Na dúvida que colocou você não definiu esta situação)

Adapte e retorne se alguma der errado.

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum