16.45.8. function DayOfWeek
function DayOfWeek(aDate: TDateTime): Integer;
Возвращает текущий день недели (1-воскресенье, 2-понедельник ... 7-суббота).
Пример:
begin
AddToLog(IntToStr(DayOfWeek(Now)));
end.
16.45.8. function DayOfWeekfunction DayOfWeek(aDate: TDateTime): Integer;
Возвращает текущий день недели (1-воскресенье, 2-понедельник ... 7-суббота).
Пример:
begin
AddToLog(IntToStr(DayOfWeek(Now)));
end.
|