Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.09.25;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

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

Наверх





Память: 0.46 MB
Время: 0.04 c
10-1103624279
Vaitek
2004-12-21 13:17
2005.09.25
SafeArray


4-1122831037
Dust
2005-07-31 21:30
2005.09.25
как в делфи получить кол-во тактов процессора прошедших от старта


1-1125387238
Darmidon
2005-08-30 11:33
2005.09.25
Свернуть все окна + Shell32.dll


1-1125816959
Dibroff
2005-09-04 10:55
2005.09.25
Как правильно нарисовать вне формы и поверх остальных форм


14-1125870749
Torry
2005-09-05 01:52
2005.09.25
Если кто помнит..





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский