Skip to main content
replaced http://stackoverflow.com/ with https://stackoverflow.com/
Fonte Link

Tiago, você precisa de uma função que transforme a string em segundos, tipo essa:

function GetSeconds(ATimeString: string): Integer;
var
  Hour, Min, Sec, MSec: Word;
begin
  DecodeTime(StrToTime(ATimeString), Hour, Min, Sec, MSec);
  Result := Hour * 3600 + Min * 60 + Sec;
end;

Desse modo você pode somar os segundos contidos nas várias strings. Depois você pode transformar o numero de segundos em string novamente.

  function SecondToTime(const Seconds: Cardinal): Double; 
var 
  ms, ss, mm, hh, dd: Cardinal; 
begin 
  dd := Seconds div SecPerDay; 
  hh := (Seconds mod SecPerDay) div SecPerHour; 
  mm := ((Seconds mod SecPerDay) mod SecPerHour) div SecPerMinute; 
  ss := ((Seconds mod SecPerDay) mod SecPerHour) mod SecPerMinute; 
  ms := 0; 
  Result := dd + EncodeTime(hh, mm, ss, ms); 
end; 

Se você estiver usando o Oracle poderá somar usando as funções do banco mesmo.

SOMAR STRING como DATE - Oracle

http://www.delphitricks.com/source-code/strings/format_seconds_as_hhmmss.html

http://stackoverflow.com/questions/23420818/convert-hhmmss-to-seconds-or-minutes-with-delphihttps://stackoverflow.com/questions/23420818/convert-hhmmss-to-seconds-or-minutes-with-delphi

Tiago, você precisa de uma função que transforme a string em segundos, tipo essa:

function GetSeconds(ATimeString: string): Integer;
var
  Hour, Min, Sec, MSec: Word;
begin
  DecodeTime(StrToTime(ATimeString), Hour, Min, Sec, MSec);
  Result := Hour * 3600 + Min * 60 + Sec;
end;

Desse modo você pode somar os segundos contidos nas várias strings. Depois você pode transformar o numero de segundos em string novamente.

  function SecondToTime(const Seconds: Cardinal): Double; 
var 
  ms, ss, mm, hh, dd: Cardinal; 
begin 
  dd := Seconds div SecPerDay; 
  hh := (Seconds mod SecPerDay) div SecPerHour; 
  mm := ((Seconds mod SecPerDay) mod SecPerHour) div SecPerMinute; 
  ss := ((Seconds mod SecPerDay) mod SecPerHour) mod SecPerMinute; 
  ms := 0; 
  Result := dd + EncodeTime(hh, mm, ss, ms); 
end; 

Se você estiver usando o Oracle poderá somar usando as funções do banco mesmo.

SOMAR STRING como DATE - Oracle

http://www.delphitricks.com/source-code/strings/format_seconds_as_hhmmss.html

http://stackoverflow.com/questions/23420818/convert-hhmmss-to-seconds-or-minutes-with-delphi

Tiago, você precisa de uma função que transforme a string em segundos, tipo essa:

function GetSeconds(ATimeString: string): Integer;
var
  Hour, Min, Sec, MSec: Word;
begin
  DecodeTime(StrToTime(ATimeString), Hour, Min, Sec, MSec);
  Result := Hour * 3600 + Min * 60 + Sec;
end;

Desse modo você pode somar os segundos contidos nas várias strings. Depois você pode transformar o numero de segundos em string novamente.

  function SecondToTime(const Seconds: Cardinal): Double; 
var 
  ms, ss, mm, hh, dd: Cardinal; 
begin 
  dd := Seconds div SecPerDay; 
  hh := (Seconds mod SecPerDay) div SecPerHour; 
  mm := ((Seconds mod SecPerDay) mod SecPerHour) div SecPerMinute; 
  ss := ((Seconds mod SecPerDay) mod SecPerHour) mod SecPerMinute; 
  ms := 0; 
  Result := dd + EncodeTime(hh, mm, ss, ms); 
end; 

Se você estiver usando o Oracle poderá somar usando as funções do banco mesmo.

SOMAR STRING como DATE - Oracle

http://www.delphitricks.com/source-code/strings/format_seconds_as_hhmmss.html

https://stackoverflow.com/questions/23420818/convert-hhmmss-to-seconds-or-minutes-with-delphi

replaced http://pt.stackoverflow.com/ with https://pt.stackoverflow.com/
Fonte Link

Tiago, você precisa de uma função que transforme a string em segundos, tipo essa:

function GetSeconds(ATimeString: string): Integer;
var
  Hour, Min, Sec, MSec: Word;
begin
  DecodeTime(StrToTime(ATimeString), Hour, Min, Sec, MSec);
  Result := Hour * 3600 + Min * 60 + Sec;
end;

Desse modo você pode somar os segundos contidos nas várias strings. Depois você pode transformar o numero de segundos em string novamente.

  function SecondToTime(const Seconds: Cardinal): Double; 
var 
  ms, ss, mm, hh, dd: Cardinal; 
begin 
  dd := Seconds div SecPerDay; 
  hh := (Seconds mod SecPerDay) div SecPerHour; 
  mm := ((Seconds mod SecPerDay) mod SecPerHour) div SecPerMinute; 
  ss := ((Seconds mod SecPerDay) mod SecPerHour) mod SecPerMinute; 
  ms := 0; 
  Result := dd + EncodeTime(hh, mm, ss, ms); 
end; 

Se você estiver usando o Oracle poderá somar usando as funções do banco mesmo.

SOMAR STRING como DATE - OracleSOMAR STRING como DATE - Oracle

http://www.delphitricks.com/source-code/strings/format_seconds_as_hhmmss.html

http://stackoverflow.com/questions/23420818/convert-hhmmss-to-seconds-or-minutes-with-delphi

Tiago, você precisa de uma função que transforme a string em segundos, tipo essa:

function GetSeconds(ATimeString: string): Integer;
var
  Hour, Min, Sec, MSec: Word;
begin
  DecodeTime(StrToTime(ATimeString), Hour, Min, Sec, MSec);
  Result := Hour * 3600 + Min * 60 + Sec;
end;

Desse modo você pode somar os segundos contidos nas várias strings. Depois você pode transformar o numero de segundos em string novamente.

  function SecondToTime(const Seconds: Cardinal): Double; 
var 
  ms, ss, mm, hh, dd: Cardinal; 
begin 
  dd := Seconds div SecPerDay; 
  hh := (Seconds mod SecPerDay) div SecPerHour; 
  mm := ((Seconds mod SecPerDay) mod SecPerHour) div SecPerMinute; 
  ss := ((Seconds mod SecPerDay) mod SecPerHour) mod SecPerMinute; 
  ms := 0; 
  Result := dd + EncodeTime(hh, mm, ss, ms); 
end; 

Se você estiver usando o Oracle poderá somar usando as funções do banco mesmo.

SOMAR STRING como DATE - Oracle

http://www.delphitricks.com/source-code/strings/format_seconds_as_hhmmss.html

http://stackoverflow.com/questions/23420818/convert-hhmmss-to-seconds-or-minutes-with-delphi

Tiago, você precisa de uma função que transforme a string em segundos, tipo essa:

function GetSeconds(ATimeString: string): Integer;
var
  Hour, Min, Sec, MSec: Word;
begin
  DecodeTime(StrToTime(ATimeString), Hour, Min, Sec, MSec);
  Result := Hour * 3600 + Min * 60 + Sec;
end;

Desse modo você pode somar os segundos contidos nas várias strings. Depois você pode transformar o numero de segundos em string novamente.

  function SecondToTime(const Seconds: Cardinal): Double; 
var 
  ms, ss, mm, hh, dd: Cardinal; 
begin 
  dd := Seconds div SecPerDay; 
  hh := (Seconds mod SecPerDay) div SecPerHour; 
  mm := ((Seconds mod SecPerDay) mod SecPerHour) div SecPerMinute; 
  ss := ((Seconds mod SecPerDay) mod SecPerHour) mod SecPerMinute; 
  ms := 0; 
  Result := dd + EncodeTime(hh, mm, ss, ms); 
end; 

Se você estiver usando o Oracle poderá somar usando as funções do banco mesmo.

SOMAR STRING como DATE - Oracle

http://www.delphitricks.com/source-code/strings/format_seconds_as_hhmmss.html

http://stackoverflow.com/questions/23420818/convert-hhmmss-to-seconds-or-minutes-with-delphi

Fonte Link
Reginaldo Rigo
  • 3,7mil
  • 12
  • 24

Tiago, você precisa de uma função que transforme a string em segundos, tipo essa:

function GetSeconds(ATimeString: string): Integer;
var
  Hour, Min, Sec, MSec: Word;
begin
  DecodeTime(StrToTime(ATimeString), Hour, Min, Sec, MSec);
  Result := Hour * 3600 + Min * 60 + Sec;
end;

Desse modo você pode somar os segundos contidos nas várias strings. Depois você pode transformar o numero de segundos em string novamente.

  function SecondToTime(const Seconds: Cardinal): Double; 
var 
  ms, ss, mm, hh, dd: Cardinal; 
begin 
  dd := Seconds div SecPerDay; 
  hh := (Seconds mod SecPerDay) div SecPerHour; 
  mm := ((Seconds mod SecPerDay) mod SecPerHour) div SecPerMinute; 
  ss := ((Seconds mod SecPerDay) mod SecPerHour) mod SecPerMinute; 
  ms := 0; 
  Result := dd + EncodeTime(hh, mm, ss, ms); 
end; 

Se você estiver usando o Oracle poderá somar usando as funções do banco mesmo.

SOMAR STRING como DATE - Oracle

http://www.delphitricks.com/source-code/strings/format_seconds_as_hhmmss.html

http://stackoverflow.com/questions/23420818/convert-hhmmss-to-seconds-or-minutes-with-delphi