Convertir min:seg:mil a milisegundos.

[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.