Наступил ли новый день

[Wolworine]

Как в делфи узнать, наступил ли новый день, месяц, год?

[Dozent]

всмысле? Что вы сделать хотите?

[Wolworine]

Обнуление определенных данных должно происходить раз в месяц. Точнее при первом открытии программы в новом месяце. Как то можно это сделать?

[C_R_E_S_C_H]

ну во первых чтобы узнать наступил ли новый день надо узнать старый пишеш куда нибудь (реестр, файл) дату дня

DateToStr(Date)

далее при каждом новом запуске программы читаешь текущую дату (той-же строчкой) а дальше или берешь . в дате за разделитель и парсиш от туда то что тебе нужно (число месяц год) или сравниваешь даты (если нужно отмечать каждый день запуски.

[Dozent]

Ну так записывайте куданить значение текушего месяца и при запуске программы ситывайте текушую дату и проверяйте если номер месяца больше на 1 записаной цифры значит обнуляем, ну или ешё проше, запоминаем текушую дату, так же при запуске считываем отнимаем, и смотрим сколько дней прошло... Работа с даными типа дата!

[3D Hunter]

Задайтесь сначала вопросом, с какого момента это нужно узнать. Раз в месяц? Вот запустили вы прогу первый раз, она и запомнила время запуска, и при каждом след. запуске будет проверять текущее время - первое время запуска. Если больше или равно месяцу, то обнуление. Можно организовать файлом, или в реестре, как сказали тут.

[Yurchik]

А если юзер изменил дату в системе, как тогда решить вопрос?

[s-andriano]

Сообщение от Yurchik

А если юзер изменил дату в системе, как тогда решить вопрос?

Если комп подключен к И-нету, можно спросить у тайм-сервера.
Если комп изолирован, в общем случае задача неразрешима.

[Wolworine]

Сообщение от Yurchik

А если юзер изменил дату в системе, как тогда решить вопрос?

Юзер не настолько прошареный, чтобы знать, как сменить дату.


А вообще вопрос решился файлом, в котором хранится старая дата входа.


Спасибо за советы)

[Rififi]

Wolworine

Как в делфи узнать, наступил ли новый день

program IsNewDay;
begin
    Sleep(24*3600*1000);
    Writeln('Наступил новый день');
end.

, месяц

program IsNewMonth;
begin
    for i := 1 to 30 do
       Sleep(24*3600*1000);
    Writeln('Наступил новый месяц');
end.

, год?

program IsNewYear;
begin
    for i := 1 to 365 do
       for j := 1 to 30 do
        Sleep(24*3600*1000);
    Writeln('Наступил новый год');
end.