Leonardo,
Faça com conta aritmética simples, veja o exemplo
Neste momento 28/10/2009 às 15:49:31 faz
14301 dias e 14:44:31
ou
20595208 minutos
desde o dia 02/09/1970 às 01:05:00
resultado obtido desta sequência de comandos :
procedure CalculaDiferencaDatas;
var StampAtrasado, StampAtual : TDateTime
begin
StampAtrasado := StrToDate(Edit1.Text)+StrToTime(Edit2.Text);
StampAtual := Now();
Memo1.Lines.Add( 'Neste Momento ' + DateToStr(StampAtual) + ' às ' +
TimeToStr(StampAtual) + ' faz ' );
Memo1.Lines.Add( IntToStr( TRUNC (StampAtual - StampAtrasado)) + ' dias e ' +
TimeToStr( StampAtual - StampAtrasado));
Memo1.Lines.Add( 'ou' );
Memo1.Lines.Add( IntToStr(
TRUNC ( (StampAtual - StampAtrasado) * 1440 )
+ ( StrToInt( Copy( TimeToStr ( StampAtual -
StampAtrasado ) , 1, 2 ) ) * 60 )
+ StrToInt(Copy(TimeToStr( StampAtual -
StampAtrasado), 4, 2)))
+ ' minutos ');
Memo1.Lines.Add( 'desde o dia ' + DateToStr(StampAtrasado) + ' às ' +
TimeToStr(StampAtrasado));
end;
Abraço
Samuca
----- Original Message -----
From: Leonardo Baldino
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, October 28, 2009 8:32 AM
Subject: Re: [delphi-br] intervalo entre duas datas
alguem sabe coomo eu vejo a quatidedade de dias entres duas data, porem
contantos os feriados tb.
pq usando a função DaysBetween ou fazendo a subtração das datas eu naum
consigo contar os feriados
2009/10/27 Samuca ( Yahoo ) <samuca_1...@yahoo.com.br>
>
>
> Leonardo,
>
> Faça a diferença entre as datas, o retorno é o número de dias em tipo float
>
> Dias := DataFinal - DataInicial;
>
> Abraço
>
> Samuca
>
>
> ----- Original Message -----
> From: Leonardo Baldino
> To: Grupo_Delphi
> Sent: Tuesday, October 27, 2009 2:04 PM
> Subject: [delphi-br] intervalo entre duas datas
>
> alguem sabe como eu faço para saber a quantidade de dias entre um
> determinado intervalo entre duas datas
>
> --
> Leonardo Carlos Baldino - The Highlander
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
Leonardo Carlos Baldino - The Highlander
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
