Проблемы с StrToDate

← →
Новичок (2010-07-14 01:28) [0]

Доброго времени суток! Помогите пожалуйста новичку. Не работает как надо функция StrToDate в таком куске кода:
DateSeparator:= ".";
ShortDateFormat := "d.m.yyyy";
date1:=StrToDate(Edit1.Text);{40373 - 14.07.2010}

date1 описал в var как TDateTime. В Edit1 данные кидаю с календаря(14.07.2010),а в точке останова на второй строке смотрю значение date1 в Watches, а там 40373 результат конвертации. В чем дело не пойму :( И хелп читал,и гуглил ничего не нашел :( (Результат конвертации нужен позже в программе для сравнения с переменными в формате TDateTime).

← →
Германн © (2010-07-14 01:52) [1]

> date1 описал в var как TDateTime

TDate = Double; В Watches именно Double и показывается.

← →
Германн © (2010-07-14 03:38) [2]

Именно 40373 дня и прошло с 12.30.1899 по/до 14.07.2010.

← →
Anatoly Podgoretsky © (2010-07-14 10:13) [3]

> а там 40373

Похоже на правильное значение.

> Новичок (14.07.10 01:28)

> а в точке останова на второй строке смотрю значение date1
> в Watches, а там 40373 результат конвертации.

А что ты там хотел увидеть?

Проблемы с StrToDate Найти похожие ветки