Fórum Obter um valor numérico da diferenca entre duas DATAS. #171335
24/07/2003
0
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
Curtir tópico
+ 0
Responder
Posts
25/07/2003
Rômulo Barros
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;
Responder
Gostei + 0
25/07/2003
Einstein
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)