ton1Click(Sender: TObject);
begin
edit2.text := calcula_idade(edit1.text);
end;
Espero ter ajudado.
- Original Message -
From: "Info Desenvolvimento" <[EMAIL PROTECTED]>
To:
Sent: Thursday, March 10, 2005 8:18 AM
Subject: [delphi-br] idade atual
Pessoal, estouu usando
07:19
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] idade atual
Pessoal, estouu usando uma função que eu peguei das 800 Dicas e Truques delphi,
só que quando gero o relatório tem uma pessoa que está com 71 anos está saindo
no bloco do 70 anos, Mas se troco a data do windows em 9 dias
Pessoal, estouu usando uma função que eu peguei das 800 Dicas e Truques delphi,
só que quando gero o relatório tem uma pessoa que está com 71 anos está saindo
no bloco do 70 anos, Mas se troco a data do windows em 9 dias ela saí no bloco
dos 71 anos. Abaixo segue a função.
Alguem pode me ajudar
-
De: Info Desenvolvimento [mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 9 de março de 2005 16:28
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] IDADE ATUAL
ESTOU CRIANDO UMA FUNÇÃO PARA EXTRAIR A IDADE DE UMA PESSOA: ONDE ESTOU ERRANDO?
procedure IDADEATUAL(Date: TDateTime; var
ESTOU CRIANDO UMA FUNÇÃO PARA EXTRAIR A IDADE DE UMA PESSOA:
ONDE ESTOU ERRANDO?
procedure IDADEATUAL(Date: TDateTime; var Year, Month, Day: Word);
var
DATA: TDateTime;
ANO_ATUAL, MES_ATUAL, DIA_ATUAL, ANO_DN, MES_DN, DIA_DN: Word;
begin
DATA:= Now;
DecodeDate(DATA, ANO_ATUAL, MES_ATUAL, DIA_
5 matches
Mail list logo
