Convertir min:seg:mil a milisegundos.

[CRIS]

Chicos necesito una cosilla que no se como hacer, he estado buscando por el foro y por el antiguo y lo veo.

Necesito pasar 1:12:450 a milisegundos, las horas no me interesan, solo necesito pasar por ejemplo: 1 minuto, 12 segundos y 450 milesimas, ¿estas tres cantidades se puede pasar a milisegundos? recordad que el formato es 1:12:450 y esta dentro de un MaskEdit.

Salu2 y como siempre gracias.

[marcoszorrilla]

Código Delphi [-]
  procedure TForm1.Button1Click(Sender: TObject);
  var
  h,m,s,ms:Word;
  begin
  m :=StrToInt( copy(maskedit1.text,1,2))*60*1000;
  s :=StrToInt( copy(maskedit1.text,4,2))*1000;
  ms:=StrToInt( copy(maskedit1.text,7,3));
  ms:=ms+m+s;
  ShowMessage('Milisegundos:'+IntTostr(ms));
  end;

Para asegurarte que las posiciones sean correctas es mejor que pongas la máscara con 00 así obligas a que introduzcan siempre los 7 dígitos:
00:00:000

Un Saludo.

[CRIS]

Un millon de gracias men, me salvas la vida, lo pruebo y te cuento.

Salu2.CRIS.

[CRIS]

Lo estoy probando y no me cuadran los tiempos, e cambiado las posiciones ya que el formato va ser automatico, el tiempo siempre va ser 1:12:450 con lo cual he echo esto:

Código Delphi [-]
var
   h,m,s,ms:Word;
   begin
   m :=StrToInt( copy(maskedit1.text,1,1))*60*1000;
   s :=StrToInt( copy(maskedit1.text,3,2))*100;
   ms:=StrToInt( copy(maskedit1.text,6,3));
   ms:=ms+m+s;
   ShowMessage('Milisegundos:'+IntTostr(ms));

pero pasa una cosa, el resultado no es el esperado ya que da 61650 cuando en realidad es 72450 veo que lo que hace es multiplicar por 100 los segundos que hay y deberia ser multiplicar por 1000 para que de bien, bueno pues si pongo para que multiplique por 1000 el resultado es 6914, no entiendo lo que ocurre.

Salu2.CRIS.

[CRIS]

Solucionado men, lo hecho asi y rula a la perfeccion:

Código Delphi [-]
var
 ms,m,s:word;
 total:integer;
 begin
m :=StrToInt( copy(maskedit1.text,1,1))*60*1000;
s :=StrToInt( copy(maskedit1.text,3,2))*1000;
ms:=StrToInt( copy(maskedit1.text,6,3));
total:=ms+m+s;
ShowMessage('Milisegundos:'+IntTostr(total));

Gracias de nuevo y Salu2.CRIS.

[marcoszorrilla]

En efecto ahora que repaso el ejemplo que hice al vuelo, veo que se me olvidó multiplicar por 1000 y lo hice por 100, cuando ya lo había hecho en los minutos 60*1000, pero veo que habías captado la idea y tu misma lo has corregido.

Un Saludo.

[CRIS]

Si, me diste la idea y te lo agradezco de corazon por que ya solo me faltaba eso para acabar la aplicacion.

Salu2.CRIS.