Cómo implementar mediante programación la conversión de tdatetimepicker del formato de 24 horas al formato de 12 horas

Delphi TDate, el método de almacenamiento de tiempo se almacena esencialmente como doble. Utilice la parte entera para representar la fecha y la parte decimal para representar la hora. TDateTimePicker tiene las tres propiedades anteriores.

2.

El atributo kind de Delphi TDateTimePicker está configurado en dtkDate para mostrar la fecha, y el segundo tipo está configurado en dtkTime para mostrar la hora, pero no se puede mostrar en al mismo tiempo.

3. Cuando utilice los valores DateTimePicker.Date y Time, tenga en cuenta: para obtener la fecha, utilice trunc para redondearla y, para obtener la hora, utilice frac para redondearla como decimal.

4. La fecha, la hora y la fecha y hora de DateTimePicker son iguales.

Cree un nuevo proyecto y coloque un TDateTimePicker, dos TEdits y dos botones, y configure los códigos de evento de los dos botones de la siguiente manera

{La fecha y hora de DateTimePicker1 son establecido en: 2010-03-26 13:00:00}

procedure TForm1.Button1Click(Sender: TObject); //Saque la parte Fecha y determine su valor

var;

t:TDateTime;

comenzar

t:= DateTimePicker1.Date;

Edit1.Text:=DateTimeToStr(t);

end;

procedimiento TForm1.Button2Click(Sender: TObject); //Juzga si la fecha y la fecha y hora son iguales

comienzo

si DateTimePicker1.Time = DateTimePicker1.DateTime entonces

comenzar

Edit2.Text:='Equal'

end

else

comenzar

Edit2.Text:='not igual';

end;

end;

Puedes Vea que aunque nuestro código solo toma la fecha o la hora, sus valores son iguales a los valores de DateTime.

Entonces, si usa el siguiente código

{La fecha y hora de DateTimePicker1 se establecen en: 2010-03-26 13:00:00}

procedimiento TForm1. Button1Click(Sender: TObject); //Saque la parte Fecha y determine su valor

var

t:TDateTime;

begin

t:= DateTimePicker1.Date + DateTimePicker1.Time;

//t:= trunc(DateTimePicker1.Date)+frac(DateTimePicker1.Time);//Esta es la fecha y la hora hasta DateTimePicker1

Edit1.Text:=DateTimeToStr(t);

end;

El resultado es: 2120-6-21 2:00:00

Es equivalente a multiplicar la hora y fecha de DateTimePicker1 por 2. No significa que Fecha+Hora de DateTimerPicker sea igual a DateTime.

Usa trunc para tomar la parte entera y frac para tomar la parte decimal La suma de los dos será igual al original.