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

← →
NSer (2008-03-16 15:09) [0]

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

← →
Virgo_Style © (2008-03-16 15:11) [1]

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

← →
NSer (2008-03-16 15:12) [2]

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

← →
sniknik © (2008-03-16 15:12) [3]

> Что не так?
тип DateTaim

← →
sniknik © (2008-03-16 15:13) [4]

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

← →
NSer (2008-03-16 15:14) [5]

> тип DateTaim

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

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

см исходники, отдает через приведение типа (а тип 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;

Как присвоить DateTimePicker = 01.01.2008 ? Найти похожие ветки