ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Diferença de dias/horas entre duas datas

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
mvicente
Novato
Novato


Registrado: Quarta-Feira, 28 de Julho de 2004
Mensagens: 46

MensagemEnviada: Qui Fev 17, 2011 11:21 am    Assunto: Diferença de dias/horas entre duas datas Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular
rafmattos
Colaborador
Colaborador


Registrado: Quinta-Feira, 11 de Fevereiro de 2010
Mensagens: 3416
Localização: Campo Grande/MS

MensagemEnviada: Qui Fev 17, 2011 11:25 am    Assunto: Responder com Citação

olha o comando FormatDateTime
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail Visitar a homepage do Usuário MSN Messenger
mvicente
Novato
Novato


Registrado: Quarta-Feira, 28 de Julho de 2004
Mensagens: 46

MensagemEnviada: Qui Fev 17, 2011 11:35 am    Assunto: Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular
imex
Moderador
Moderador


Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666

MensagemEnviada: Qui Fev 17, 2011 11:48 am    Assunto: Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular
mvicente
Novato
Novato


Registrado: Quarta-Feira, 28 de Julho de 2004
Mensagens: 46

MensagemEnviada: Qui Fev 17, 2011 1:38 pm    Assunto: Responder com Citação

Valeu amigo, era isso mesmo que eu precisava!
Se eu puder ajudar em algo, conte comigo...

[]´s
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB