Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Duda con horas y maskedit (https://www.clubdelphi.com/foros/showthread.php?t=63846)

Paulao 05-03-2009 13:18:58

Duda con horas y maskedit
 
Señores, tengo una duda. Hay un Combodate, o sea, un combo que me lo trae la fecha(dd/mm/yyyy). Ahora yo tengo al su lado um maskedit con el formato(mask) 99:99. Neste maskedit yo escribo las horas, que van de 00:00 hacia 23:59. Lo que quiero es juntar las informaciones del combodate con mi maskedit, que el resiltado final quede en:
'01/01/2009 04:23'(Esto es solo un ejemplo), o sea, juntar la fecha con la hora y hacer un solo DateTime, porque esto será usado en un consulta. Uso Delphi 5.

duilioisola 05-03-2009 14:41:56

Los días son enteros. 1 es el 01/01/1899 (creo)
Las horas son decimales entre 0 y 0.999999. (0 = 00:00:00 y 0.999999 = 23:59:59)

Por lo tanto puede sumar estos dos datos para tener fecha y hora juntos.

Código Delphi [-]
function resultado : TDateTime;
begin
   Result := ComboDate.Date;
   Result := Result + StrToTime(MaskEdit.Text);
end;

juanlaplata 05-03-2009 14:57:56

Se me ocurre que puedes utilizar el TDateTimePicker de la paleta "Win32" en Delphi 6,
y a este en la propiedad "Format" le pones "dd/MM/yyyy hh:mm" .

Caro 05-03-2009 19:13:27

Hola, yo lo haría como te ha puesto Duosiloa, también tienes las funciones DecodeDate, DecodeTime, EncodeDateTime.

Saluditos

krlox31416 08-03-2009 02:38:35

y si haces algo como esto!!!
 
y si utilizas esto???
servira para tu aplicación???
Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
begin
StatusBar1.SimpleText:= DateTimeToStr(Now);// PUEDES PONER OTRO COMPONENTE O AGREGARLO AL CAPTION DE LA FORMA... ETC.
end;

espero que te sirva y si no pues aqui veremos como sacar este problema...
s:)ludos!!!...


La franja horaria es GMT +2. Ahora son las 23:34:53.

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