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

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

Как присвоить DateTimePicker = 01.01.2008 ?

NSer ©   (2008-03-16 15:09:00) 

Почему не срабатывает:
if TDateTimePicker(Controls[ii]).Date=StrToDate('01.01.2000') then ...
Присваивать получается:
TDateTimePicker(Controls[ii]).Date:=StrToDate('01.01.2000');
Что не так?

---

sniknik   (2008-03-16 15:20:00) [1]

см исходники, отдает через приведение типа (а тип TDate = TDateTime т.е. то на то), а присваивает замещением даты, не трогая taim...
function TCommonCalendar.GetDate: TDate;
begin
 Result := TDate(FDateTime);
end;

procedure TCommonCalendar.SetDate(Value: TDate);
begin
 ReplaceTime(TDateTime(Value), FDateTime);
 if Value = 0.0 then CheckEmptyDate;
 try
   CheckValidDate(Trunc(Value));
   SetDateTime(Value);
 except
   SetDateTime(FDateTime);
   raise;
 end;
end;

---

NSer   (2008-03-16 15:14:00) [2]

> тип DateTaim

if TDateTimePicker(Controls[ii]).DateTaim=StrToDate('01.01.2000') then ...

тогда почему:
TDateTimePicker(Controls[ii]).Date:=StrToDate('01.01.2000');
работает? без DateTaim?

---

sniknik   (2008-03-16 15:13:00) [3]

> вернее - не присвоить, а проверить? ))))
присвой так чтобы тайм обнулился тогда и проверка пройдет.

---

NSer   (2008-03-16 15:12:00) [4]

вернее - не присвоить, а проверить? ))))

---

sniknik   (2008-03-16 15:12:00) [5]

> Что не так?
тип Date Taim

---

Virgo_Style   (2008-03-16 15:11:00) [6]

дробные части отличаются, видимо

---

Наверх