var
numero1,numero2,result:real;
data1,data2:tdate;
begin
numero1:=0.10;
numero2:=0.20;
data1:=StrToDate('01/02/2006');
data2:=now;
if data1 > data2 then
result:=numero1 + numero2;//não entra aqui de forma alguma
if data1 < data2 then
result:=numero1 * numero2;
ShowMessage(FormatFloat('#,##0.00', Result));
end;
Veja se assim ele não vai marcar com as famosas bolinhas azul .
Eduardo Castro Alves
Analista de Sistemas
-----Original Message-----
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of paty_gata_bahia
Sent: segunda-feira, 24 de abril de 2006 16:00
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Não entra no IF
Bom dia amigos tudo bem? Espero que!
Eu estou com problema meio maluco, Eu não estou conseguindo executar
uma condição. Veja um exemplo resumido do codigo;
procedure TForm1.Button1Click(Sender: TObject);
var
numero1,numero2,result:real;
data1,data2:tdate;
begin
numero1:=0.10;
numero2:=0.20;
data1:=StrToDate('01/02/2006');
data2:=now;
if data1 > data2 then
result:=numero1 + numero2;//não entra aqui de forma alguma
if data1 < data2 then
result:=numero1 * numero2;
end;
end.
Para entrar no if eu tenho que usar outro tipo de variavel, mas com
as variaveis do tipo real fazendo o calculo não entra.
Alguem já passou por isso? Se sim pode me dar a dica magica?
Obrigado a todo Bjs...
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
- Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
- Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
- O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.