Ver Mensaje Individual
  #1  
Antiguo 08-05-2007
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 27
Caral Va por buen camino
Calculo de Horas (exactas)

Hola a todos y gracias de antemano.
Ya se que pregunto demasiado, pero quiero alcanzar a Roman, pero en preguntas.
Al asunto:
Tengo un pequeño codigo que calcula las horas de diferencia:
Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
hora1, hora2, horat: TTime;
begin
   hora2:= StrToTime(MaskEdit2.Text);
   hora1:= StrToTime(MaskEdit1.Text);
   horat := hora1 - hora2;
   MaskEdit3.Text:= TimeToStr(horat);
end;
Bueno el caso es que si en el mask coloco hora corta, me sale la hora aproximada, osea sin minutos, si coloco hora larga, si salen los minutos pero tambien am al final, aunque no sea am, si coloco un edit convencional lo mismo.
Pregunta:
Como hago para que me salga la hora corta (Hora, Minutos) completa, sin el am, si podeis lo copiais y lo provais, vereis que no camina.
Que se puede hacer.?
Saludos
Responder Con Cita