)) ;
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de eu_sossego
Enviada em: sexta-feira, 14 de dezembro de 2007 17:16
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Ajuda!! lógica Calculo
desculpe me intrometer mas ... o edita 2 esta digitado
, December 11, 2007 4:49 PM
Subject: Re: RES: [delphi-br] Ajuda!! lógica Calculo
Coloque 3 edits no form e um botao.
No botao coloque o seguinte código:
Edit2.Text := FloatToStr(date-StrToDate(Edit1.Text)) ;
Edit3.Text := FloatToStr(trunc((date-StrToDate(Edit1.Text))/365.25)) ;
Edit2 vai
]andrefmoraes%40gmail.commailto:
andrefmoraes%40gmail.com
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto:
delphi-br%40yahoogrupos.com.br
Sent: Tuesday, December 11, 2007 4:49 PM
Subject: Re: RES: [delphi-br] Ajuda!! lógica Calculo
Coloque 3 edits no form e um botao
É, como eu sempre digo: Quem procura, acha!
Sds.
To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Fri, 14 Dec 2007 17:47:50
-0300Subject: Re: RES: [delphi-br] Ajuda!! lógica Calculo
Senhores me desculpem, mas uma simples busca no GOOGLE resolveu aquestao em
5 segundos.procurei por delphi
;
- Original Message -
From: itasouza [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, December 11, 2007 5:41 PM
Subject: Re: RES: [delphi-br] Ajuda!! lógica Calculo
Amigo preciso que verifique se está correto da forma que fiz;
procedure
Itassouza
Eu uso esse função
Function Tform1.IdadeN(Nascimento:TDateTime) : String;
Type
Data = Record
Ano : Word;
Mes : Word;
Dia : Word;
End;
Const
Qdm:String = '312831303130313130313031'; // Qtde dia no mes
Var
Dth : Data; // Data de hoje
Dtn : Data; // Data de nascimento
anos,
: Wednesday, December 12, 2007 12:33 AM
Subject: Re: RES: [delphi-br] Ajuda!! lógica Calculo
desculpe me intrometer mas ... o edita 2 esta digitado fora dos parenteses
floattostr quando na verdade o campo dentro dos parenteses e date e nao
float
ou estou enganado
- Original Message
: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Ajuda!! lógica Calculo
desculpe me intrometer mas ... o edita 2 esta digitado fora dos parenteses
floattostr quando na verdade o campo dentro dos parenteses e date e nao
float
ou estou enganado
- Original Message -
From
Message -
From: Leonardo Cruz Costa - P. M. Quissamã
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, December 11, 2007 3:42 PM
Subject: Re: RES: [delphi-br] Ajuda!! lógica Calculo
Qual é o erro?
Leonardo Cruz Costa
Analista de Sistemas / RH
Prefeitura Municipal de Quissamã
Amigos estou fazendo desta forma, aparentemente está correto, mais
esta gerando o erro:
`5//0//980' is not a valid Mesmo inserindo a data corretamente,
Date, preciso testar o campo de digitação de data,
Alguém poderia ajudar..
agradeço
procedure TfrmCadAluno.btnSalvarClick(Sender:
Retirei a maskara do campo e apos isso gerava o erro: 22 Anos' is
not a valid integer value for field `idade'
Então alterei o campo idade do banco para receber texto. Desta forma
conseguir resolver a questão da data. O problema agora seria deixar
uma alternativa mais amigável para o usuário
Amigo faça o seguinte eu fiz este ezxemplo com um edit mas vc pode adaptar
para sua necessidade
Var data1 : integer;
Data2 : Tdate;
Data2 := StrToDate(edit1.Text);
Data1:= trunc((Date data2)/365.25);
showmessage('sua data de nacimento é ' + inttostr(Data1));
Seguir o seu exemplo mais não conseguir fazer, você está usando
parâmetro?
Tenho os seguintes edits, preciso fazer com que mostre o resultado
no campo EditIdade, assim que sair do campo EditDataNascimento;,
neste caso vou usar o onExit do campo.
EditDataNascimento;
EditIdade;
Precisava que
@yahoogrupos.com.br
Sent: Tuesday, December 11, 2007 4:11 PM
Subject: Re: RES: [delphi-br] Ajuda!! lógica Calculo
Seguir o seu exemplo mais não conseguir fazer, você está usando
parâmetro?
Tenho os seguintes edits, preciso fazer com que mostre o resultado
no campo EditIdade, assim que
Coloquei no onExit do EditDatNascimento o código:
EditIdade.Text:= Inttostr(Date - StrToDate(EditDataNascimento.text));
O mesmo gera erro e não compila
Alguém saberia uma alternativa?
Agradeço!!
Qual é o erro?
Leonardo Cruz Costa
Analista de Sistemas / RH
Prefeitura Municipal de Quissamã
Mat.: 2601
(22)2768-9324 / 9372
- Original Message -
From: itasouza
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, December 11, 2007 4:38 PM
Subject: Re: RES: [delphi-br] Ajuda
Utilize a função DaysBetween da unit DateUtils.
Atenciosamente,
Douglas Uesato
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de itasouza
Enviada em: terça-feira, 11 de dezembro de 2007 16:38
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Ajuda
-
From: itasouza [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, December 11, 2007 4:38 PM
Subject: Re: RES: [delphi-br] Ajuda!! lógica Calculo
Coloquei no onExit do EditDatNascimento o código:
EditIdade.Text:= Inttostr(Date - StrToDate(EditDataNascimento.text));
O mesmo gera
Amigo preciso que verifique se está correto da forma que fiz;
procedure TfrmCadAluno.EditDataNascimentoExit(Sender: TObject);
begin
// EditDataNascimento e digitado pelo usuário
EditDataNascimento.Text := FloatToStr(date-StrToDate
(Edit1.Text)) ;
//EditIdade recebe o resultado
: Tuesday, December 11, 2007 4:49 PM
Subject: Re: RES: [delphi-br] Ajuda!! lógica Calculo
Coloque 3 edits no form e um botao.
No botao coloque o seguinte código:
Edit2.Text := FloatToStr(date-StrToDate(Edit1.Text)) ;
Edit3.Text := FloatToStr(trunc((date-StrToDate(Edit1.Text))/365.25)) ;
Edit2 vai
20 matches
Mail list logo