Daas no delphi

[jiz/df]

COMO  USO DATAS NO DELPHI, PORQUE EU QUERO VER A DIFERENÁC ENTRE 2 DATAS, OUVI FALAR QUE você PODE TRANFORMAR AS DATAS EM NUMEROS E AI FAZER OS CALCULOS E DEPOIS TRANFORMA NOVAMENTE EM DATA. ME AJUDEM

[sledgehammer]

você tem que criar as variáveis como TDateTime (o formato já é um número, é igual ao Double), e para pegar a data e hora atual você usa a função Now, algo assim:

 T:=Now; (T: TDateTime)

Depois você pode subtrair assim:

D:=Now - T; (D: TDateTime);

Isso serve se for usar diferenças apenas na hora (isso porque zero significa ano 1900). Ai você pode usar a função TimeToStr que retorna uma string com o tempo decorrido (até 24hs).

Se for diferenças de dias você tem que fazer diferente na hora de pegar a segunda data.

você tem que quebrar a diferença em ano,mês,dia,hora,min,segundo e milisegundo (todos declarados como Word), assim:

D:=Now

DecodeDate(D,Ano2,Mes2,Dia2);

DecodeTime(D,Hora2,Min2,Segundo2,MSegundo2);

DecodeDate(T,Ano,Mes,Dia);

DecodeTime(T,Hora,Min,Segundo,MSegundo);

Ai você calcula a diferença com esses números.