DayOfWeek: Integer;
Свойство DayOfWeek возвращает номер дня недели в текущей переменной.
Допустимые значения:
1 - Понедельник;
2 - Вторник;
3 - Среда;
4 - Четверг;
5 - Пятница;
6 - Суббота;
0 - Воскресенье.
Sub UserProc;
Var
DT: DateTime;
i, i1: Integer;
Begin
DT := DateTime.Now;
i := DT.DayOfWeek;
DT := DateTime.AddMonths(DT, 1);
i1 := DT.DayOfWeek;
End Sub UserProc;
После выполнения примера в переменной «i» будет содержаться номер дня текущей недели, а в переменной «i1» будет содержаться номер дня недели, соответствующего текущему числу через месяц.
См. также: