Obter um valor numérico da diferenca entre duas DATAS.
Obter um valor numérico da diferenca entre duas DATAS.
Hoje 24-07-2003.
data qualquer 01-07-2003.
Obter o resultado de numerico de 23 dias.
Hoje 24-07-2003.
data qualquer 01-07-2003.
Obter o resultado de numerico de 23 dias.
Hightechnology
Curtidas 0
Respostas
Rômulo Barros
24/07/2003
Var
ano,ano2,mes,mes2,dia,dia2 : Word;
Begin
DecodeDate(Now,ano,mes,dia);
DecodeDate(SuaData,ano2,mes2,dia2);
showmessage(´a diferenca e ´365*24*(ano - ano2)+31*24*(mes - mes2) + (dia - dia2));
End;
ano,ano2,mes,mes2,dia,dia2 : Word;
Begin
DecodeDate(Now,ano,mes,dia);
DecodeDate(SuaData,ano2,mes2,dia2);
showmessage(´a diferenca e ´365*24*(ano - ano2)+31*24*(mes - mes2) + (dia - dia2));
End;
GOSTEI 0
Einstein
24/07/2003
Var
Dias:Currency;
begin
Dias:=Data2-Data1;
LabelDias:=FormatFloat(´000´,Dias);
// Data1 e Data2 são tipo Date;
Dias:Currency;
begin
Dias:=Data2-Data1;
LabelDias:=FormatFloat(´000´,Dias);
// Data1 e Data2 são tipo Date;
GOSTEI 0