De 12 a 24 horas

[sancarlos]

Alguien que me ayude,

Necesito pasar de 12 horas a 24 una variable.

Actualmente paso el valor de la hora a un label , con la funcion de

lbltime.Caption:=timetostr(time());

claro lo hace, pero necsito que la hora no sea 01:12:00 , SINO las 13:12:00 .

Esto por cuanto , el dato en la base de datos lo lee como 24.

[[enecumene]]

Hola, puedes usar la función LongTimeFormat:

Código Delphi [-]
LongTimeFormat := 'hh:mm:ss';
lbltime.Caption:=timetostr(Now);

Saludos.

[[FGarcia]]

Por ejemplo un reloj en el formulario con un timer en un intervalo de 1000

Código Delphi [-]
procedure Tform1.tmrRelojTimer(Sender: TObject);
var
  strFecha : string;
  strHora: string;
begin
  //Aqui mostramos la hora y fecha en el formulario cada segundo
  DateTimeToString(strFecha, 'dddd d,  mmmm,  yyyy', Now);
  DateTimeToString(strHora, 'hh:nn:ss', Now);
  StatusBar1.Panels[0].Text := strFecha + '   ' + strHora;
end;

esto resultaria asi p.e.:

martes 1, Julio, 2008 18:50:05

Por cierto ¿que hace esta pregunta en el foro de MS SQLServer? deberia de ir en varios.

[sancarlos]

Gracias viejo, me ayudaste bastante,.