TDateTime и datetimepicker

← →
Anatoly P (2002-12-16 19:46) [0]

Как можно запихнуть дату и время из двух datetimepicker-ов в переменную TDateTime и при неоходимость извлечь обратно в эти компоненты?

← →
Nikols (2002-12-16 19:59) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
d, t, resDate: TDateTime;
begin
d := Round(DateTimePicker1.Date);
t := DateTimePicker2.Date - Round(DateTimePicker2.Date);
resDate := d + t;
ShowMessage(DateTimeToStr(resDate));
DateTimePicker1.Date := resDate;
DateTimePicker2.Date := resDate;
end;

← →
Song (2002-12-16 20:01) [2]

Var Dt:TDateTime;

Dt:=DateTimePicker1.DateTime;

Обратно - переставь местами.

← →
Anatoly P (2002-12-16 20:03) [3]

По-моему не то, я имел в виду, что в одном datetimepicker -дата, в другом - время

TDateTime и datetimepicker Найти похожие ветки