Extrair a hora de uma data.

Question

Oi, Pessoal.Preciso extrair exatamente a hora de uma data. Exemplo.:Adiciono um quantidade de horas a data atual e gostaria de saber em que horas est� a nova data.Ser� que alguem pode me ajudar ?Sem m...

Rfpsatin · Answer

n�o lembro de nenhuma que te traga apenas a hora. VC pode usar o copy p/ pegar apenas a data ou tentar algum tipo de cast....

Ltres · Answer

Tente algo do tipo[code:1:80fa9740e5]procedure TForm1.Button1Click(Sender: TObject);var  HoraAtual: Word;begin  Showmessage(�Data: �+ FormatDateTime(�dd/mm/yy - hh:nn:ss�, Now));  HoraAtual := HourOf(Now);  ShowMessage(�A hora atual � �+ IntToStr(HoraAtual));end;[/code:1:80fa9740e5] :arrow:  :arrow:  E coloque na uses da unit DateUtils...

Ovidio · Answer

N�o deu certo extrair a hora de uma data. Ele n�o calculou. Porque ser� ?Algu�m sabe dizer ?Sem mais, agrade�o desde j�.Ovidio Jr....

Ltres · Answer

Coloca o codigo aqui no topico pra gente dar uma olhada...

Ovidio · Answer

var horas : string;

DBPrzEntrega.Date := IncHour(Now,qtdhoras);
Horas := FormatDateTime(�hh:mm:ss�,DBPrzEntrega.Date);
DBHrEntrega.Text := Horas;

Este � o codigo que escrevo.

Ovidio Jr.

Marcelo Saviski · Answer

s� FormatDateTime(�hh�, DBPrzEntrega.Date); n�o funciona?...

Ltres · Answer

se voc� quer guardar s� a hora (sem minuto, segundo) fa�a assim:

var horas : string;

DBPrzEntrega.Date := IncHour(Now,qtdhoras);
Horas :=IntToStr(HourOf(DBPrzEntrega.Date));
DBHrEntrega.Text := Horas;

ou

var horas : string;

DBPrzEntrega.Date := IncHour(Now,qtdhoras);
Horas :=IntToStr(HourOf(IncHour(Now,qtdhoras)));
DBHrEntrega.Text := Horas;

Mas se vai os minutos e segundos coloca assim:

var horas : string;

DBPrzEntrega.Date := IncHour(Now,qtdhoras);
Horas := FormatDateTime(�hh:nn:ss�, DBPrzEntrega.Date);
DBHrEntrega.Text := Horas;

A unica diferen�a nesse ultimo do q tu passou � a string de formata��o
onde era hh:mm:ss coloquei hh:nn:ss!

Procure no indice do help do delphi q tu vai entender o pq de nn em vez de mm!

F�rum Extrair a hora de uma data. #197220