Неправильная работа функции Date

← →
KommandorDi © (2003-11-25 18:31) [0]

Здравствуйте,
у меня возникла проблема, которую я не понимаю.
Результат вызова функции DateToStr(Date) ВСЕГДА равен 30.12.1899!!!!!!!!
С чем это связано, и что мене теперь делать?
Заранее спасибо.

← →
Переяслов Григорий © (2003-11-25 18:53) [1]

А код привести слабо?

← →
KommandorDi © (2003-11-25 19:01) [2]

var
date:TDateTime;
full_f_name,f_tmp,f_name:String;
function SomeFunc;
begin
full_f_name:=f_name+DateToStr(date)+".txt";
f_tmp:=f_name+DateToStr(date)+".tmp";
AssignFile(ftmp,f_tmp);
Rewrite(ftmp);
...
end;

← →
KommandorDi © (2003-11-25 19:04) [3]

Т.е. я имел в виду, что date - глобальная переменная, а ее значение получается в другом месте

← →
MBo © (2003-11-25 19:12) [4]

Во-первых, ни к чему называть переменную так же, как библиотечную функцию
Во-вторых, 30.12.1899 - это 0. ищи, где обнуляется.

А если я сменю имя переменной - это может помочь?

Я поменял имя переменной на другое и все встало на свои места.
Благодарю за помощь.

Неправильная работа функции Date Найти похожие ветки