| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TDateTime и datetimepicker [D6, WinXP]

Anatoly P ©   (2002-12-16 19:46:00) 

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

---

Anatoly P   (2002-12-16 20:03:00) [1]

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

---

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

Var Dt:TDateTime;

Dt:=DateTimePicker1.DateTime;

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

---

Nikols   (2002-12-16 19:59:00) [3]

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;

---

Наверх