Форум: "Начинающим";
Текущий архив: 2008.04.13;
Скачать: [xml.tar.bz2];

Вниз

Как присвоить 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?

---

← →
sniknik ©   (2008-03-16 15:20) [6]

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

---

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

Форум: "Начинающим";
Текущий архив: 2008.04.13;
Скачать: [xml.tar.bz2];

Наверх

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