Atribuir resultado da Query a uma variável

Delphi

31/10/2003

Gente !

Estou tentando atribuir o resultado de uma query a uma variável para fazer uma subtração.
O resultado da query é uma data, mas na tabela está definida como string.
No form eu recebo uma data e vou fazer a subtração para descobrir o intervalo em dias entre as duas datas.
Tipo,
1.Recebo a data do form.
2. Verifico se a data recebida é maior que a data que tenho na tabela. Estou fazendo isso aqui:
IF (edtDataNasc.Text > qryData.Fields[0].Astring) then begin
datamaior := strtodate(edtDataNasc.Text);
datamenor := qryData.Fields[0].AsDateTime;
dias := trunc(datamaior - datamenor);
END;

datamaior e datamenor são TDate.
dias é integer.

Se não ficou claro, posso tentar explicar melhor.
Quem puder me ajudar...

:shock:
Ana Davis


Ana Davis

Ana Davis

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

31/10/2003

Para vc fazer o IF tem que converter para data:

Tente assim:
datamaior := strtodate(edtDataNasc.Text); 
datamenor := strtodate(qryData.Fields[0].Astring); 

IF (datamaior > datamenor ) then begin 
   dias := (datamaior - datamenor); 
END;


datamaior e datamenor são TDate.
dias é double.


GOSTEI 0
Ana Davis

Ana Davis

31/10/2003

VALEU FABIO, VOU TENTAR...
ACHO Q VAI DAR CERTO SIM !
:wink:


GOSTEI 0
Ana Davis

Ana Davis

31/10/2003

Agora minha dúvida é:

como converter um tipo double para string ????
Preciso jogar o conteúdo de dias em um edit.


:cry:


GOSTEI 0
Fabio.hc

Fabio.hc

31/10/2003

[quote:d787f0f130=´Ana Davis´]Agora minha dúvida é:

como converter um tipo double para string ????
Preciso jogar o conteúdo de dias em um edit.


:cry:[/quote:d787f0f130]

Edit1.text:=floattostr(dias);



GOSTEI 0
POSTAR