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

Posted by Chas under Delphi

Rififi
день

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.

тема на форуме

Похожие статьи

• MySQL запрос. Проблема в выборе по максимальной дате
• Преобразование даты в SQL запросе
• Как получить количество миллисекунд, прошедших с полуночи 1 января 1970 года
• Копирование файлов по дате изменения в BAT/CMD
• Получить разницу между датами
• Посчитать сумму цифр даты
• Форматирование даты в php
• Как вычесть дату?
• Получить текущее время в php
• Вывод пустых ячеек вместо 0000-00-00