Somar minutos a uma determinada hora
Olá,
Como faço para somar minutos a uma hora? Por exemplo, como faço para somar 45 minutos a hora 12:30? Obrigado.
Luiz
Como faço para somar minutos a uma hora? Por exemplo, como faço para somar 45 minutos a hora 12:30? Obrigado.
Luiz
L_carlos
Curtidas 0
Melhor post
Renan.cb
04/12/2007
IncMinute(dateTime, minutos)
tem que incluir DateUtils na uses
tem que incluir DateUtils na uses
GOSTEI 1
Mais Respostas
Steve_narancic
01/12/2007
a partir do delphi 6 ou 7 existe uma unit DateUtils, com varias funções para trabalhar com data e hora
GOSTEI 0
L_carlos
01/12/2007
Olá,
Eu achei a função abaixo mas não sei como usa´la.
function AdicionaMinuto (const DT: TDateTime; const Mnts: Extended): TDateTime;
begin
Result := (DT + Mnts / 1440.0);
end;
Como eu uso essa função para por exemplo, a partir de uma hora informada em um edit1 e um numero de minutos informado em um edit2,ao clicar em um button apareça num edit3 a soma da hora com os minutos?
Luiz
Eu achei a função abaixo mas não sei como usa´la.
function AdicionaMinuto (const DT: TDateTime; const Mnts: Extended): TDateTime;
begin
Result := (DT + Mnts / 1440.0);
end;
Como eu uso essa função para por exemplo, a partir de uma hora informada em um edit1 e um numero de minutos informado em um edit2,ao clicar em um button apareça num edit3 a soma da hora com os minutos?
Luiz
GOSTEI 0
L_carlos
01/12/2007
Consegui resolver usando o codigo abaixo:
Var
hora1: TDateTime;
hora2: TDateTime;
total: TDateTime;
begin
hora1 := StrToTime(Edit1.Text);
hora2 := StrToTime(Edit2.Text);
total := Hora2 - Hora1;
Label1.Caption := FormatDateTime(´hh:nn:ss´,total);
end;
Luiz
Var
hora1: TDateTime;
hora2: TDateTime;
total: TDateTime;
begin
hora1 := StrToTime(Edit1.Text);
hora2 := StrToTime(Edit2.Text);
total := Hora2 - Hora1;
Label1.Caption := FormatDateTime(´hh:nn:ss´,total);
end;
Luiz
GOSTEI 0