RES: RES: [delphi-br] Ajuda!! lógica Calculo

2007-12-14 Por tôpico Gerhard Roger Nack 
Se é pra analisar o código deveria se utilizar o IntToStr e não o FloatToStr já 
que o valor fui truncado e resultou em um valor inteiro.

 

Era:

Edit3.Text := FloatToStr(trunc((date-StrToDate(Edit1.Text))/365.25)) ;

 

Correto: 

Edit3.Text := IntToStr(trunc((date-StrToDate(Edit1.Text))/365.25)) ;

 

 

 

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 fora dos parenteses
floattostr quando na verdade o campo dentro dos parenteses e date e nao
float
ou estou enganado 
- Original Message - 
From: André Moraes - GMail [EMAIL PROTECTED] 
mailto:andrefmoraes%40gmail.com 
To: delphi-br@yahoogrupos.com.br mailto: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.

 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 receber o numero de dias
 Edit3 vai receber a idade em anos
 - Original Message - 
 From: itasouza [EMAIL PROTECTED] mailto:itasouza%40yahoo.com.br 
 To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.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 erro e não compila

 Alguém saberia uma alternativa?

 Agradeço!!




 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Links do Yahoo! Grupos




 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Links do Yahoo! Grupos




 -- 
 No virus found in this incoming message.
 Checked by AVG Free Edition.
 Version: 7.5.503 / Virus Database: 269.17.1/1181 - Release Date:
 11/12/2007 17:05


 



[As partes desta mensagem que não continham texto foram removidas]

Re: RES: [delphi-br] Ajuda!! lógica Calculo

2007-12-14 Por tôpico eu_sossego 
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: André Moraes - GMail [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.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.

 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 receber o numero de dias
 Edit3 vai receber a idade em anos
 - Original Message - 
 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 erro e não compila

 Alguém saberia uma alternativa?

 Agradeço!!




 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Links do Yahoo! Grupos




 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Links do Yahoo! Grupos




 -- 
 No virus found in this incoming message.
 Checked by AVG Free Edition.
 Version: 7.5.503 / Virus Database: 269.17.1/1181 - Release Date:
 11/12/2007 17:05

Re: RES: [delphi-br] Ajuda!! lógica Calculo

2007-12-14 Por tôpico Sergio Eurico 
Senhores me desculpem, mas uma simples busca no GOOGLE resolveu a
questao em 5 segundos.
procurei por delphi calcula idade ( sem as aspas, como sempre ) e obtive o
link: http://www.tecnobyte.com.br/dica8.html#dica211

Abracos.


Em 14/12/07, Gerhard Roger Nack [EMAIL PROTECTED] escreveu:

   Se é pra analisar o código deveria se utilizar o IntToStr e não o
 FloatToStr já que o valor fui truncado e resultou em um valor inteiro.

 Era:

 Edit3.Text := FloatToStr(trunc((date-StrToDate(Edit1.Text))/365.25)) ;

 Correto:

 Edit3.Text := IntToStr(trunc((date-StrToDate(Edit1.Text))/365.25)) ;

 De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
 delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de
 eu_sossego
 Enviada em: sexta-feira, 14 de dezembro de 2007 17:16
 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.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: André Moraes - GMail [EMAIL 
 PROTECTED]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.
 
  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 receber o numero de dias
  Edit3 vai receber a idade em anos
  - Original Message -
  From: itasouza [EMAIL PROTECTED] itasouza%40yahoo.com.brmailto:
 itasouza%40yahoo.com.br 
  To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto:
 delphi-br%40yahoogrupos.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 erro e não compila
 
  Alguém saberia uma alternativa?
 
  Agradeço!!
 
 
 
 
  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
  Links do Yahoo! Grupos
 
 
 
 
  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
  Links do Yahoo! Grupos
 
 
 
 
  --
  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.5.503 / Virus Database: 269.17.1/1181 - Release Date:
  11/12/2007 17:05
 

 [As partes desta mensagem que não continham texto foram removidas]

  



[As partes desta mensagem que não continham texto foram removidas]

RE: RES: [delphi-br] Ajuda!! lógica Calculo

2007-12-14 Por tôpico Rubem Nascimento da Rocha 

É, 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 calcula idade ( sem as aspas, como sempre ) e 
obtive olink: http://www.tecnobyte.com.br/dica8.html#dica211Abracos.Em 
14/12/07, Gerhard Roger Nack [EMAIL PROTECTED] escreveu: Se é pra analisar 
o código deveria se utilizar o IntToStr e não o FloatToStr já que o valor fui 
truncado e resultou em um valor inteiro. Era: Edit3.Text := 
FloatToStr(trunc((date-StrToDate(Edit1.Text))/365.25)) ; Correto: 
Edit3.Text := IntToStr(trunc((date-StrToDate(Edit1.Text))/365.25)) ; De: 
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: 
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de 
eu_sossego Enviada em: sexta-feira, 14 de dezembro de 2007 17:16 Para: 
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.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: André Moraes - GMail [EMAIL 
PROTECTED]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.   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 
receber o numero de dias  Edit3 vai receber a idade em anos  - Original 
Message -  From: itasouza [EMAIL PROTECTED] 
itasouza%40yahoo.com.brmailto: itasouza%40yahoo.com.br   To: 
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: 
delphi-br%40yahoogrupos.com.br   Sent: Tuesday, December 11, 2007 4:38 PM 
 Subject: Re: RES: [delphi-br] Ajuda!! lógica CalculoColoquei 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!!  --   
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEMLinks do Yahoo! 
Grupos  --   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA 
MENSAGEMLinks do Yahoo! Grupos  --  No virus found 
in this incoming message.  Checked by AVG Free Edition.  Version: 7.5.503 / 
Virus Database: 269.17.1/1181 - Release Date:  11/12/2007 17:05  [As 
partes desta mensagem que não continham texto foram removidas] [As partes 
desta mensagem que não continham texto foram removidas] 






_
Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos 
com até 6,000 fotos!
http://www.amigosdomessenger.com.br

[As partes desta mensagem que não continham texto foram removidas]

Re: RES: [delphi-br] Ajuda!! lógica Calculo

2007-12-12 Por tôpico André Moraes - GMail 
Se o editDataNascimento é digitado pelo usuário, vc deve fazer da seguinte 
forma:

procedure TfrmCadAluno.EditDataNascimentoExit(Sender: TObject);
begin
//EditIdade recebe o resultado em anos
EditIdade.Text := 
FloatToStr(trunc((date-StrToDate(EditDataNascimento.Text))/365.25)) ;
end;


- 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 TfrmCadAluno.EditDataNascimentoExit(Sender: TObject);
begin
 // EditDataNascimento e digitado pelo usuário
EditDataNascimento.Text := FloatToStr(date-StrToDate
(Edit1.Text)) ;
//EditIdade recebe o resultado
EditIdade.Text := FloatToStr(trunc((date-StrToDate
(Edit1.Text))/365.25)) ;
   //Edit1 está vazio
end;

Agradeço.




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Links do Yahoo! Grupos

Re: RES: [delphi-br] Ajuda!! lógica Calculo

2007-12-12 Por tôpico Luciano Angelini 
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, meses, dias, nrd : Shortint; // Usadas para calculo da idade
begin
DecodeDate(Date,Dth.Ano,Dth.Mes,Dth.Dia);
DecodeDate(Nascimento,Dtn.Ano,Dtn.Mes,Dtn.Dia);
anos := Dth.Ano - Dtn.Ano;
meses := Dth.Mes - Dtn.Mes;
if meses  0 then
begin
Dec(anos);
meses := meses+12;
end;
dias := Dth.Dia - Dtn.Dia;
if dias  0 then
begin
nrd := StrToInt(Copy(Qdm,(Dth.Mes-1)*2-1,2));
if ((Dth.Mes-1)=2) and ((Dth.Ano Div 4)=0) then
begin
Inc(nrd);
end;
dias := dias+nrd;
meses := meses-1;
end;
//Result
 label2.caption := IntToStr(anos)+' Anos '+IntToStr(meses)+' Meses 
'+IntToStr(dias)+' Dias';
end;


itasouza escreveu:

 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!!

Re: RES: [delphi-br] Ajuda!! lógica Calculo

2007-12-12 Por tôpico André Moraes - GMail 
Quando vc faz uma conta usando datas do tipo date-StrToDate(Edit1.Text))  
ele retorna um valor extend, que como vou mostrar num edit, preciso 
transformar em texto, por isso o uso do FloatToStr

- Original Message - 
From: eu_sossego [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: 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 - 
 From: André Moraes - GMail [EMAIL PROTECTED]
 To: delphi-br@yahoogrupos.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.

 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 receber o numero de dias
 Edit3 vai receber a idade em anos
 - Original Message - 
 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 erro e não compila

 Alguém saberia uma alternativa?

 Agradeço!!




 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Links do Yahoo! Grupos




 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Links do Yahoo! Grupos




 -- 
 No virus found in this incoming message.
 Checked by AVG Free Edition.
 Version: 7.5.503 / Virus Database: 269.17.1/1181 - Release Date:
 11/12/2007 17:05




 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Links do Yahoo! Grupos

RES: RES: [delphi-br] Ajuda!! lógica Calculo

2007-12-12 Por tôpico Vitor Redes 
O Tipo Date é um disfarce, hehehehe

Faça o teste, coloque um botão na tela e no código digite assim:

 

Var

VVariavel : TDate;

Begin

VVariavel := DATE + 2;

VVariavel := VVariavel – 1;

End;

 

Coloque um breakpoint e veja o valor... ou procure no help do
delphi.

 

Vitor.

 

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de eu_sossego
Enviada em: terça-feira, 11 de dezembro de 2007 23:34
Para: 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: André Moraes - GMail andrefmoraes@
mailto:andrefmoraes%40gmail.com gmail.com
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.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.

 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 receber o numero de dias
 Edit3 vai receber a idade em anos
 - Original Message - 
 From: itasouza [EMAIL PROTECTED] mailto:itasouza%40yahoo.com.br com.br
 To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.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 erro e não compila

 Alguém saberia uma alternativa?

 Agradeço!!




 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Links do Yahoo! Grupos




 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Links do Yahoo! Grupos




 -- 
 No virus found in this incoming message.
 Checked by AVG Free Edition.
 Version: 7.5.503 / Virus Database: 269.17.1/1181 - Release Date: 
 11/12/2007 17:05
 

 



[As partes desta mensagem que não continham texto foram removidas]

Re: RES: [delphi-br] Ajuda!! lógica Calculo

2007-12-12 Por tôpico Alessandro DUARTE de Moraes 
Seguinte, acho que o erro pode ser porque vc está usando um DBEdit ... isso 
significa que o Text vem do Banco de Dados.
Altere o valor do campo Idade que automaticamente alterará o DBEdit.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  - Original 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ã
  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!! lógica Calculo

  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!!

  --

  No virus found in this incoming message.
  Checked by AVG Free Edition. 
  Version: 7.5.503 / Virus Database: 269.16.14/1172 - Release Date: 5/12/2007 
08:41

  [As partes desta mensagem que não continham texto foram removidas]



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,475edc5d891501157313842 


[As partes desta mensagem que não continham texto foram removidas]

Re: RES: [delphi-br] Ajuda!! lógica Calculo

2007-12-12 Por tôpico itasouza 
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: TObject);
begin
   //
   if EditNome.Text = '' then
 begin
 Application.MessageBox(PAnsiChar('Por Favor Informe o nome do 
Aluno!'),'Atenção',MB_OK+ MB_ICONINFORMATION);
 EditNome.SetFocus;
 exit;
 end;

   if EditDataNascimento.Text = '' then
 begin
 Application.MessageBox(PAnsiChar('Por Favor Informe a Data de 
Nascimento do Aluno!'),'Atenção',MB_OK+ MB_ICONINFORMATION);
 EditDataNascimento.SetFocus;
 exit;
 end;
 //
   try
 //EditIdade recebe a idade - EditDataNascimento - digita a data
 EditIdade.text := floattostr( int((date - strtodate
(EditDataNascimento.text)) / 365)) + ' Anos';
 QAluno.Post;
 btnNovo.Enabled:=True;
   except
 on e:exception do
  begin
  // caso ocorra algum erro mostra esta informação
  MessageDlg('Erro abrindo Banco de Dados - QAluno. 
Mensagem: '+e.Message, mtError,  [mbOk],0);
  exit;
 end;
 end;

end;

Re: RES: [delphi-br] Ajuda!! lógica Calculo -

2007-12-12 Por tôpico itasouza 
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 selecionar a data de 
nascimento: estava pensando em usar o DateTimePicker1 o campo atual 
e um DBedit, alguém saberia como usar este componente de forma que 
grave também no banco a data selecionada?

Agradeço!!

Segue o codigo, agora funcionando

procedure TfrmCadAluno.btnSalvarClick(Sender: TObject);
 var DataNasc: TDateTime;
begin
   //
   if EditNome.Text = '' then
 begin
 Application.MessageBox(PAnsiChar('Por Favor Informe o nome do 
Aluno!'),'Atenção',MB_OK+ MB_ICONINFORMATION);
 EditNome.SetFocus;
 exit;
 end;

   if EditDataNascimento.Text = '' then
 begin
 Application.MessageBox(PAnsiChar('Por Favor Informe a Data de 
Nascimento do Aluno!'),'Atenção',MB_OK+ MB_ICONINFORMATION);
 EditDataNascimento.SetFocus;
 exit;
 end;
 //
   try
 //EditIdade recebe a idade - EditDataNascimento - digita a data
 EditIdade.text := floattostr( int((date - strtodate
(EditDataNascimento.text)) / 365)) + ' Anos';
 QAluno.Post;
 btnNovo.Enabled:=True;
   except
 on e:exception do
  begin
  // caso ocorra algum erro mostra esta informação
  MessageDlg('Erro abrindo Banco de Dados - QAluno. 
Mensagem: '+e.Message, mtError,  [mbOk],0);
  exit;
 end;
 end;

end;

RES: [delphi-br] Ajuda!! lógica Calculo

2007-12-11 Por tôpico Marcelo Mendes de Oliveira 
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));

 

Marcelo Mendes de Oliveira 
Analista de Informática
Tel.: + 49 3541-6177
Fax: + 49 3541-0423
IGUAÇU - celulose, papel s.a
www.iguacucelulose.com.br http://www.iguacucelulose.com.br/ 
P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
Before printing this document, think about your responsibility and care for
the ENVIRONMENT!

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de itasouza
Enviada em: terça-feira, 11 de dezembro de 2007 12:39
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Ajuda!! lógica Calculo 

 


Tenho um campo DBedit que recebera a data de nascimento, o mesmo está 
com uma maskara no EditMask, preciso calcular a idade e jogar o valor 
em um outro DBedit.

EditDataNascimento // recebe a data no formato 00/00/
EditIdade // calcula a idade.

Alguém poderia ajudar..

Agradeço...

 



[As partes desta mensagem que não continham texto foram removidas]

Re: RES: [delphi-br] Ajuda!! lógica Calculo

2007-12-11 Por tôpico itasouza 
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 se possível de uma ajuda, estou fazendo assim:

procedure TfrmCadAluno.CalculaIdade;
 var  data1 : integer;
begin
   //
   Data1 := trunc((Date – data2)/365.25);
   showmessage( 'sua data de nacimento é ' + inttostr(Data1) );

end;

Re: RES: [delphi-br] Ajuda!! lógica Calculo

2007-12-11 Por tôpico Leonardo Cruz Costa - P . M . Quissamã 
Você esqueceu de criar a variável data2.

Mas veja bem: você quer obter a data de nascimento ou a idade do sujeito?

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: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 sair do campo EditDataNascimento;, 
  neste caso vou usar o onExit do campo.

  EditDataNascimento;
  EditIdade;

  Precisava que se possível de uma ajuda, estou fazendo assim:

  procedure TfrmCadAluno.CalculaIdade;
  var data1 : integer;
  begin
  //
  Data1 := trunc((Date - data2)/365.25);
  showmessage( 'sua data de nacimento é ' + inttostr(Data1) );

  end;



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition. 
  Version: 7.5.503 / Virus Database: 269.16.14/1172 - Release Date: 5/12/2007 
08:41


[As partes desta mensagem que não continham texto foram removidas]

Re: RES: [delphi-br] Ajuda!! lógica Calculo

2007-12-11 Por tôpico itasouza 
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!!

Re: RES: [delphi-br] Ajuda!! lógica Calculo

2007-12-11 Por tôpico Leonardo Cruz Costa - P . M . Quissamã 
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!! lógica Calculo


  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!!



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition. 
  Version: 7.5.503 / Virus Database: 269.16.14/1172 - Release Date: 5/12/2007 
08:41


[As partes desta mensagem que não continham texto foram removidas]

RES: RES: [delphi-br] Ajuda!! lógica Calculo

2007-12-11 Por tôpico Douglas Uesato 
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!! lógica Calculo

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!!

Re: RES: [delphi-br] Ajuda!! lógica Calculo

2007-12-11 Por tôpico André Moraes - GMail 
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 receber o numero de dias
Edit3 vai receber a idade em anos
- Original Message - 
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 erro e não compila

Alguém saberia uma alternativa?

Agradeço!!




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Links do Yahoo! Grupos

Re: RES: [delphi-br] Ajuda!! lógica Calculo

2007-12-11 Por tôpico itasouza 
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
EditIdade.Text := FloatToStr(trunc((date-StrToDate
(Edit1.Text))/365.25)) ;
   //Edit1 está vazio
end;

Agradeço.

Re: RES: [delphi-br] Ajuda!! lógica Calculo

2007-12-11 Por tôpico eu_sossego 
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: André Moraes - GMail [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.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.

 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 receber o numero de dias
 Edit3 vai receber a idade em anos
 - Original Message - 
 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 erro e não compila

 Alguém saberia uma alternativa?

 Agradeço!!




 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Links do Yahoo! Grupos




 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Links do Yahoo! Grupos




 -- 
 No virus found in this incoming message.
 Checked by AVG Free Edition.
 Version: 7.5.503 / Virus Database: 269.17.1/1181 - Release Date: 
 11/12/2007 17:05