Скачать: CL | DM;

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 -дата, в другом - время

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c