Как выполнить дествие если наступила определенная дата?(Delphi)
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
Как выполнить дествие если наступила определенная дата?(Delphi) - 2009-03-14 15:51:11.146666
|
|
|
Sokolik
Сообщений: 46
Оценки: 0
Присоединился: 2009-02-19 14:36:16.693333
|
С помошью каких функций на Дельфи выполнить определенное дествие если наступила нужная дата? Например если наступило 01.01.2010, то выводим на экран сообщение "С новым годом".
|
|
|
RE: Как выполнить дествие если наступила определенная дата?(Delphi) - 2009-03-14 15:56:59.580000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Гугл рулит: http://www.codenet.ru/progr/delphi/Object-Pascal/datetime.php
|
|
|
RE: Как выполнить дествие если наступила определенная дата?(Delphi) - 2009-03-14 15:59:47.680000
|
|
|
Sokolik
Сообщений: 46
Оценки: 0
Присоединился: 2009-02-19 14:36:16.693333
|
quote:
ORIGINAL: _SaZ_ Гугл рулит: http://www.codenet.ru/progr/delphi/Object-Pascal/datetime.php Да гугл рулит, но по твоей ссылке не нужной инфы.
|
|
|
RE: Как выполнить дествие если наступила определенная дата?(Delphi) - 2009-03-14 16:02:10.113333
|
|
|
Sokolik
Сообщений: 46
Оценки: 0
Присоединился: 2009-02-19 14:36:16.693333
|
Тема больше не актуальна! Нашел такой код:
function DateExists(Date: string; Separator: char): Boolean;
var
OldDateSeparator: Char;
begin
Result := True;
OldDateSeparator := DateSeparator;
DateSeparator := Separator;
try
try
StrToDate(Date);
except
Result := False;
end;
finally
DateSeparator := OldDateSeparator;
end;
end;
Потом проверяем по таймеру:
begin
if DateExists('35.3.2001', '.') then
begin
{your code}
end;
end;
|
|
|
RE: Как выполнить дествие если наступила определенная дата?(Delphi) - 2009-03-14 17:39:39.836666
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
quote:
ORIGINAL: Sokolik quote:
ORIGINAL: _SaZ_ Гугл рулит: http://www.codenet.ru/progr/delphi/Object-Pascal/datetime.php Да гугл рулит, но по твоей ссылке не нужной инфы. Может ты просто читать не умеешь?
|
|
|
|
|