Aldir
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 21/03/2009 00:12 hs
olá por favor quem pode me ajudar.
não entendo nada de access, mas estou formatando um programinha para uma amiga omde presico caldular a data do nascimento das crianças cadastrada. usei campos separados dia, mes e ano o que para obter a idade dessas crianças.
|
|
|
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 23/03/2009 21:46 hs
Pessoal, desculpem, mas não olhei mais este tópico, mas se ainda serve, é bem simples: Private Function CALCULAIDADE() Idade.Text = DateDiff("yyyy", DataNascimento.Text, DatadeHoje.Caption) ' RETORNA ANOS DE IDADE End Function Private Function CALCULAIDADE() Idade.Text = DateDiff("mm", DataNascimento.Text, DatadeHoje.Caption) ' RETORNA MESES DE IDADE End Function Private Function CALCULAIDADE() Idade.Text = DateDiff("dd", DataNascimento.Text, DatadeHoje.Caption) ' RETORNA DIAS DE IDADE End Function No retorno de Meses: Idade = (Idade / 12) No retorno de dias Idade = (Idade / 365) Dai o resto é só fazer os calculos. vlu// |
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 23/03/2009 21:59 hs
Completando a resposta, se quiser fazer calculo de anos, meses e dias, faça da seguinte forma: Dim lIDADE As Long faça o calculo em dias, coloque um label (lblANO) P/ TRAZER SE É ANOS, MESES OU DIAS. If lIDADE > 364 Then lIDADE = Int((lIDADE / 364))
If Int(lIDADE) > 1 Then
lblANO.Caption = "Anos"
Else
lblANO.Caption = "Ano"
End If
Else
If lIDADE = 364 Then
lIDADE = 1
lblANO.Caption = "Ano"
Else
If lIDADE > 30 Then
lIDADE = Int(lIDADE / 30)
If Int(lIDADE) > 1 Then
lblANO.Caption = "Meses"
Else
lblANO.Caption = "Mes"
End If
Else
If lIDADE = 30 Then
lIDADE = 1
lblANO.Caption = "Mes"
Else
If lIDADE > 1 Then
lblANO.Caption = "Dias"
Else
lblANO.Caption = "Dia"
End If
End If
End If
End If
End If Bem, isto pode ser menor, mas para vc avaliar, fica mais facil desta forma. Também não fiz verificação de ano bisexto, generalizei com 364. vlu// |
|
|
|
Luis Senna
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/12/2010 17:54 hs
Sr. Marcelo, os dado acima postado por vc, vai ser mut util para mim, pois sou agente comunitario de saude, e trabalho com tabelas de dado o tempo td, sempre tenho q fazer estes cauculos n aponta do lapis.
Caso vc tenha outra novidade ai e poder me ajudar, ficarei muito grato.
abraços.
|
|
|
|
Marcelo
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/03/2012 23:51 hs
Luis Senna sou agente de saúde também construí uma tabela exclusiva para agente comunitário de saudê só não coloquei este código de idade, mas to aqui justamente para isso, colocar o código só que faz tempo que construí e agora to apanhado um pouco onde colocar este código se alguém poder me ajudar ficarei grato mas ato procurando quando achar vou fazer uma vídeo aula porque no youtube não tem.
depois se vc ou outro colega ou outra pessoa quiser este programinha que eu fiz pode ficcar avontade para pedir que mando por Email.
Ele tem
Cadastro de Idosos
cadastro de gestantes
ficha A
Ficha A verso
Tarefas
Diabéticos e hipertensos
peso
cartão de vacina
carteirinha
acamados
menor de 2 anos acompanhamento
entre outros que pode ser feito um relatório de acordo com a necessidade porque no cadastro já ta incluído tudo
meu Email marcelomp3design@gmail.com
|
|
|
|
|
