Текущий архив: 2003.12.19;
Скачать: CL | DM;

Вниз

Новый Год   Найти похожие ветки 

← →
кирилл_   (2003-12-07 11:27) [0]

Уважаемые Мастера!
Покажите как, сделать, чтобы независимо от года,
1 января появилось сообщение "С новым годом!".
Зараннее спасибо!

---

← →
Maxud ©   (2003-12-07 11:33) [1]


var d, m, y: word;
begin
DecodeDate(Date);
if (d=1) and (m=1) then
ShowMessage("С новым годом!!");
end;


---

Страницы: 1 вся ветка

Текущий архив: 2003.12.19;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.025 c