Главная страница
    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.036 c
4-1123009065
Михаил(Киров)
2005-08-02 22:57
2005.09.25
RegisterHotKey


14-1125339597
Константинов
2005-08-29 22:19
2005.09.25
Жизнь прекрасна, если Вы еще можете посмеяться над собой.


10-1096806739
Ivan K
2004-10-03 16:32
2005.09.25
Переменная может не иницилизироваться?


8-1115882168
Vadim68
2005-05-12 11:16
2005.09.25
Как правильно сохранить битмап?


4-1122891201
КодеКорешь
2005-08-01 14:13
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский