[apc700]

Помогите пожалуйста, я пока учусь!
Мне нужно получить дату: 1 число месяца 1 час, 1 минута, это все получилось но мне нужно еще чтобы это было еще и понидельником. А дни недели не знаю как получить??

Код:

var Year, Month, Day: Word;
    Hour, Min, Sec, MSec : Word;

procedure TForm10.FormCreate(Sender: TObject);
begin
DecodeDate (Now, Year, Month, Day);
DecodeTime(Now,Hour,Min,Sec,MSec);
end;
end.

procedure TForm10.Button1Click(Sender: TObject);
begin
if ((Day = 1) and (Hour = 1) and (Min = 1)) then
....
end;

Admin: Не забываем про теги!