| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
mvicente Novato

Registrado: Quarta-Feira, 28 de Julho de 2004 Mensagens: 46
|
Enviada: Qui Fev 17, 2011 11:21 am Assunto: Diferença de dias/horas entre duas datas |
|
|
Pessoal, boa tarde!
Estou montando um cálculo e preciso saber a diferença em dias e horas, dado duas datas. Exemplo: data/hora inicial 20/01/2011 09:50 e data/hora final 15/02/2011 15:40.
Como faço pra saber o tempo corrido nesse periodo, de forma que fique assim: 25 dias, 18 horas e 10 min.
Alguém tem alguma idéia de como posso fazer isso?
Qualquer ajuda é bem vinda.
[]´s
Marcelo Vicente |
|
| Voltar ao Topo |
|
 |
rafmattos Colaborador

Registrado: Quinta-Feira, 11 de Fevereiro de 2010 Mensagens: 3416 Localização: Campo Grande/MS
|
Enviada: Qui Fev 17, 2011 11:25 am Assunto: |
|
|
| olha o comando FormatDateTime |
|
| Voltar ao Topo |
|
 |
mvicente Novato

Registrado: Quarta-Feira, 28 de Julho de 2004 Mensagens: 46
|
Enviada: Qui Fev 17, 2011 11:35 am Assunto: |
|
|
Olá rafmattos,
Eu preciso é saber como calcular o tempo. O FormatDateTime é apenas para formatar, certo?
Se eu usar o DaysBetween, eu consigo achar a qtde de dias, mas e as horas? Tentei várias funções do Delphi, mas não encontrei nada que me atenda.
Se alguém puder dar uma ajuda, agradeço mto.
[]´s |
|
| Voltar ao Topo |
|
 |
imex Moderador

Registrado: Sexta-Feira, 7 de Janeiro de 2011 Mensagens: 11666
|
Enviada: Qui Fev 17, 2011 11:48 am Assunto: |
|
|
Experimente utilizar a função DateUtils.DaySpan mais ou menos assim:
| Código: | var
DataI: TDateTime;
DataF: TDateTime;
DifDias: double;
begin
DataI := StrToDateTime('20/01/2011 09:50');
DataF := StrToDateTime('15/02/2011 15:40');
DifDias := DaySpan(DataF, DataI);
Label1.Caption := IntToStr(Trunc(DifDias)) + ' dias, ' +
FormatDateTime('h" horas e "n" minutos"', DifDias); |
Espero que ajude.
_________________
Assinatura: Casas a venda em Suzano |
|
| Voltar ao Topo |
|
 |
mvicente Novato

Registrado: Quarta-Feira, 28 de Julho de 2004 Mensagens: 46
|
Enviada: Qui Fev 17, 2011 1:38 pm Assunto: |
|
|
Valeu amigo, era isso mesmo que eu precisava!
Se eu puder ajudar em algo, conte comigo...
[]´s |
|
| Voltar ao Topo |
|
 |
|