Extrair a hora de uma data.

Delphi

26/11/2003

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 mais, agradeço desde já.

Ovidio Jr.


Ovidio

Ovidio

Curtidas 0

Respostas

Rfpsatin

Rfpsatin

26/11/2003

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.


GOSTEI 0
Ltres

Ltres

26/11/2003

Tente algo do tipo

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;


:arrow: :arrow: E coloque na uses da unit DateUtils


GOSTEI 0
Ovidio

Ovidio

26/11/2003

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.


GOSTEI 0
Ltres

Ltres

26/11/2003

Coloca o codigo aqui no topico pra gente dar uma olhada


GOSTEI 0
Ovidio

Ovidio

26/11/2003

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.


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

26/11/2003

só FormatDateTime(´hh´, DBPrzEntrega.Date);

não funciona?


GOSTEI 0
Ltres

Ltres

26/11/2003

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!


GOSTEI 0
POSTAR