Функция заглючила

← →
Rogis (2005-08-30 10:37) [0]

Храню я функцию проверки даты в модуле.
Все прекрасно работало.
Но в один момент она перестала работать, я уже сто раз проверял ее с другими своими кодами - она абсолютно не изменилась.

Загрузил резервную копию, которая была до изменений и добавления других функций в программу, думал, может что забажело, но нет, это функция и в резервной копии больше не работает.
В чем может быть проблема?
Функция проверяла сегодняшнюю дату, и ту, которую нужно было,
и сравнивала.
Если Сегодняшняя дата равна нужной, или больше, то тогда возвращала ТРУ!
А у меня она постоянно возвращает тру!

← →
Александр Иванов © (2005-08-30 10:38) [1]

Код выложи, телепатов нет.

← →
Antonn © (2005-08-30 10:39) [2]

А хде код?
Это примерно так?
function GetSegodnyaDataandNeSegodnya(_date:Tdatetime):boolean;
begin
if now>=_date then result:=true else result:=false;
end;

← →
sniknik © (2005-08-30 10:55) [3]

> Это примерно так?
;), тогда уж
function GetSegodnyaDataandNeSegodnya(_date:Tdatetime): boolean; begin result:= date() >= _date; end;

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

← →
begin...end © (2005-08-30 11:16) [4]

> Rogis (30.08.05 10:37)

> Функция проверяла сегодняшнюю дату, и ту, которую нужно
> было,
> и сравнивала.

См. в справке: функции CompareDate и CompareDateTime из модуля DateUtils.

← →
Rogis (2005-08-30 11:45) [5]

sniknik
Не дататайм, а просто дата!

Function ScanForDate(Day : String) : Boolean;
Var
DateKill : String;
Begin
IF KeyExists("DateKill") = False Then
WriteRegString("Date","DateKill",DateToStr(Date + StrToInt(Day)));
DateKill := ReadRegString("Date","DateKill","");
IF Date >= StrToDate(DateKill) Then Result := True Else Result := False
End;

← →
begin...end © (2005-08-30 11:51) [6]

> Rogis (30.08.05 11:45) [5]

Это сравнение строк, а не дат. При таком подходе дата "20.08.2005" окажется больше, чем "10.09.2005".

← →
begin...end © (2005-08-30 11:52) [7]

А, нет, извините. Ошибся.

Rogis (30.08.05 11:45) [5]
не может записать в реестр, или считать из него, возможно не хватает прав.
p.s.
Код перепишите, посмотрите как Вам советуют сделать. [3] [4]

2 Rogis (30.08.05 10:37)

А ты уверен в том, что твоя программа настолько супер-пупер, чтобы что-то там удалялось?

← →
Rogis (2005-08-30 14:23) [10]

Эй, Ega23 Че та у меня удаляется?

Функция заглючила Найти похожие ветки