Fórum Subtração entre datas #166824
28/06/2003
0
Olá pessoal estou precisando urgentemente fazer subtração entre datas.
Exemplo:
de 20/12/2002 a 20/01/2003 = 30 dias
de 20/01/2003 a 20/03/2003 = 60 dias
como faço isso?
Exemplo:
de 20/12/2002 a 20/01/2003 = 30 dias
de 20/01/2003 a 20/03/2003 = 60 dias
como faço isso?
Tap_pedroso
Curtir tópico
+ 0
Responder
Posts
28/06/2003
Rahalpeterson
Olá,
Faça o seguinte, coloque 3 edits em um formulário e no envento onclick
de um botão escreva o seguinte o código:
procedure TForm1.Button1Click(Sender: TObject);
var
qtdDias : Integer;
begin
qtdDias := Trunc(StrtoDate(Edit1.text)) - Trunc(StrtoDate(Edit2.text));
Edit3.Text := InttoStr(qtdDias);
end;
Apenas verifique sempre que o a data do primeiro edit, de modo que ela seja sempre seja maior que a do segundo.
Espero ter ajudado.
Faça o seguinte, coloque 3 edits em um formulário e no envento onclick
de um botão escreva o seguinte o código:
procedure TForm1.Button1Click(Sender: TObject);
var
qtdDias : Integer;
begin
qtdDias := Trunc(StrtoDate(Edit1.text)) - Trunc(StrtoDate(Edit2.text));
Edit3.Text := InttoStr(qtdDias);
end;
Apenas verifique sempre que o a data do primeiro edit, de modo que ela seja sempre seja maior que a do segundo.
Espero ter ajudado.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)