Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-11-2005
CRIS CRIS is offline
Miembro
 
Registrado: jul 2003
Posts: 63
Poder: 22
CRIS Va por buen camino
Convertir min:seg:mil a milisegundos.

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.
Responder Con Cita
  #2  
Antiguo 14-11-2005
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
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.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.

Última edición por marcoszorrilla fecha: 15-11-2005 a las 15:46:49.
Responder Con Cita
  #3  
Antiguo 15-11-2005
CRIS CRIS is offline
Miembro
 
Registrado: jul 2003
Posts: 63
Poder: 22
CRIS Va por buen camino
Un millon de gracias men, me salvas la vida, lo pruebo y te cuento.

Salu2.CRIS.
Responder Con Cita
  #4  
Antiguo 15-11-2005
CRIS CRIS is offline
Miembro
 
Registrado: jul 2003
Posts: 63
Poder: 22
CRIS Va por buen camino
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.

Última edición por marcoszorrilla fecha: 15-11-2005 a las 15:46:33.
Responder Con Cita
  #5  
Antiguo 15-11-2005
CRIS CRIS is offline
Miembro
 
Registrado: jul 2003
Posts: 63
Poder: 22
CRIS Va por buen camino
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.
Responder Con Cita
  #6  
Antiguo 15-11-2005
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
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.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
  #7  
Antiguo 15-11-2005
CRIS CRIS is offline
Miembro
 
Registrado: jul 2003
Posts: 63
Poder: 22
CRIS Va por buen camino
Si, me diste la idea y te lo agradezco de corazon por que ya solo me faltaba eso para acabar la aplicacion.

Salu2.CRIS.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 00:50:05.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi