Caral
08-05-2007, 22:16:42
Hola a todos y gracias de antemano.
Ya se que pregunto demasiado, pero quiero alcanzar a Roman, pero en preguntas.:D
Al asunto:
Tengo un pequeño codigo que calcula las horas de diferencia:
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.?:confused:
Saludos
Ya se que pregunto demasiado, pero quiero alcanzar a Roman, pero en preguntas.:D
Al asunto:
Tengo un pequeño codigo que calcula las horas de diferencia:
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.?:confused:
Saludos