Day

kak da napravia da se izvurshva niakakvo si deistvie ako v slychai che e opredelena data .. razbrah edin nachin no tam e ot znachenie pulnata data a men me interesuva samo denia bez znachenie mesecut i godinata
predvaritelno blagodaria

i kv e tja nachin ..
prdvrt molja

Ами след като си вземеш текущата дата - си я разделяш с функция на ден месец и година - и ползваш това което ти трябва - в случая деня.

-----------------------------------------------------

Returns Year, Month, and Day values for a TDateTime value.

Unit

SysUtils

Category

date/time routines

procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);

Description

The DecodeDate procedure breaks the value specified as the Date parameter into Year, Month, and Day values. If the given TDateTime value has a negative (BC) year, the year, month, and day return parameters are all set to zero.
---
Е т'ва е живот!

If dayofweek(myDay) = 5 then showmessage('Днес е четвъртък цял ден');



DayOfWeek returns the day of the week for a specified date.

Unit

SysUtils

Category

date/time routines

function DayOfWeek(Date: TDateTime): Integer;

Description

The DayOfWeek function returns the day of the week of the specified date as an integer between 1 and 7. Sunday is the first day of the week and Saturday is the seventh.

Преди да направиш нещо, преброй до 20. усмихвай се по-често от другите

Ако ползваш Win2000/XP погледни Scheduled Task в Control Panel - може би ще ти свърши работа ;-))) -даже и без да ползваш програма.
А иначе ще трябва да напишеш негов заместител, но първо разгледай как то4но работи горното.

---
Е т'ва е живот!