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 

Trabalhando com horas (datas)

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


Registrado: Sexta-Feira, 19 de Julho de 2013
Mensagens: 63

MensagemEnviada: Seg Mai 30, 2016 11:04 pm    Assunto: Trabalhando com horas (datas) Responder com Citação

Boa noite.

Estou com uma dúvida, alguém poderia me dar um auxilio?
Tenho duas datas, uma de entrada outra de saída.

Tinha que ver a hora de uma data (TDateTime) e ver se é maior que a outra, teoricamente é fácil, porem o duro é as horas.

Estou trabalhando com controle de estacionamento.

A pernoite é mais cara, então das 20hrs as 06 da manhã é um horário diferenciado, como vou saber se 05 da manhã é maior que as 6 ?
Calcular horários e minha dificuldade..

Obrigado
_________________
Delphi XE4 + Oracle.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
natanbh1
Colaborador
Colaborador


Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 2963
Localização: Belo Horizonte - MG

MensagemEnviada: Ter Mai 31, 2016 9:42 am    Assunto: Responder com Citação

Não sei se te entendi bem, mas se você gravar a data e a hora, basta uma comparação simples para saber qual é maior e qual é menor.

Veja um exemplo:

Código:
var
  Horario1, Horario2: TDateTime;
begin
  Horario1 := StrToDateTime('31/05/16 06:00:00');
  Horario2 := StrToDateTime('01/06/16 05:00:00');

  if Horario1 > Horario2 then
    ShowMessage('Horário1 (' + DateTimeToStr(Horario1) + ') é maior')
  else
    ShowMessage('Horário2 (' + DateTimeToStr(Horario2) + ') é maior')
end;

_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
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