Скачать: CL | DM;

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

← →
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]

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

---

← →
dmitry501 ©   (2005-08-30 11:54) [8]

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

---

← →
Ega23 ©   (2005-08-30 12:28) [9]

2 Rogis   (30.08.05 10:37)

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

---

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

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.025 c