Converter Variavel

Delphi

28/09/2005

Como posso converter uma variavel que guarda um String de tempo em uma variavel Inteira de segundos.

Ex.: Variavel String = ´00:01:35´. Quero transformar essa variavel em segundos. Ex.: Variavel Inteira = 95


Foxcyber

Foxcyber

Curtidas 0

Respostas

Beto_martini

Beto_martini

28/09/2005

Segue o código para o exemplo que vc. passou.


var segundos:integer;hora_string:string;
begin
hora_string:=´00:01:35´;
segundos:=(strtoint(copy(hora_string,4,2))*60)+(strtoint(copy(hora_string,7,2)))
end;

Obs: Vai funcionar bem se a variável que irá receber a hora estiver sempre formatada da mesma forma. Ex: se estiver ´0:1:42´ - não funcionará. Vc. deve certificar-se disto antes de fazer a conversão.


GOSTEI 0
Massuda

Massuda

28/09/2005

Acho que isso funciona...
var
  S: string;
  N: Integer;
...
  S := ´00:01:35´;
  N := StrToTime(S) * SecsPerDay;
  // N = 95 (segundos)
...



GOSTEI 0
POSTAR