Fórum subtrair duas datas #171965
28/07/2003
0
Oi pessoal...
como faço para subtrair duas datas;
var mfator :string;
mdtcalc :integer;
begin
mfator := ALLTRIM(mdtcalc-(03/07/2000))+1000);
o que estou fazendo de errado???
como faço para subtrair duas datas;
var mfator :string;
mdtcalc :integer;
begin
mfator := ALLTRIM(mdtcalc-(03/07/2000))+1000);
o que estou fazendo de errado???
Catharina
Curtir tópico
+ 0
Responder
Posts
29/07/2003
Mabh
Catharina
O código que você postou eu não entendi mas segue abaixo um exemplo que pode ser útil:
procedure TForm1.Button1Click(Sender: TObject);
var
d1, d2, d3: TDate;
begin
d1 := StrToDate(´29/07/2003´);
d2 := StrToDate(´29/07/2002´);
d3 := d1 - d2;
ShowMessage(FloatToStr(d3));
end;
As variáveis do tipo TDateTime são na verdade um valor real, a parte inteira representa a data e a fração a hora, o que torna possível o uso de funções como FloatToStr, Trunc, etc.
Espero ter ajudado.
Márcio
O código que você postou eu não entendi mas segue abaixo um exemplo que pode ser útil:
procedure TForm1.Button1Click(Sender: TObject);
var
d1, d2, d3: TDate;
begin
d1 := StrToDate(´29/07/2003´);
d2 := StrToDate(´29/07/2002´);
d3 := d1 - d2;
ShowMessage(FloatToStr(d3));
end;
As variáveis do tipo TDateTime são na verdade um valor real, a parte inteira representa a data e a fração a hora, o que torna possível o uso de funções como FloatToStr, Trunc, etc.
Espero ter ajudado.
Márcio
Responder
Gostei + 0
29/07/2003
Catharina
Obrigada Marcio por ter respondido....
Ajudou sim e muito!!!
Ajudou sim e muito!!!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)