Convertir min:seg:mil a milisegundos.

CRIS · #4 15-11-2005

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.