Pelo código que você passou, data1 NUNCA será maior que data2. Aposto que na segunda condição está entrando.
E mais, já tentou debugar pra ver o que pode estar ocorrendo de errado !?
Vejas os valores que aparecem nas variáveis.
[]'s.
[-----x-----]
paty_gata_bahia escreveu:
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...
[-----x-----]
=================================
"Nunca ande pelo caminho traçado, pois ele conduz somente até onde os outros já foram."
Alexander Graham Bell
=================================
Welson de Avelar Soares Filho
Analista/Programador Delphi
Gemini Sistemas
<www.geminisistemas.com.br>
Juiz de Fora - Minas Gerais
=================================
---------------------------------
Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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!.