Помогите пожалуйста, я пока учусь!
Мне нужно получить дату: 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: Не забываем про теги!