День недели

← →
Керик (2002-06-07 05:20) [0]

Помогите, плиз! Как определить день недели текущей даты?

← →
fnatali © (2002-06-07 07:01) [1]

DayOfWeek ?

← →
Dennn_is (2002-06-07 08:03) [2]

Я делал так:

var ADate: TDateTime;
days: array[1..7] of string;

begin days[1] := "Воскресенье"; days[2] := "Понедельник"; days[3] := "Вторник"; days[4] := "Среда"; days[5] := "Четверг"; days[6] := "Пятница"; days[7] := "Суббота"; ADate := Date(); Label10.Caption := Datetostr(Date()) + " " + days[DayOfWeek(ADate)]; end;

← →
Song © (2002-06-07 09:27) [3]

2Dennn_is (07.06.02 08:03)
:)

2Керик (07.06.02 05:20)
DayOfWeek() - ISO
DayOfTheWeel() - ГОСТ

← →
Andrey007 (2002-06-07 09:53) [4]

Для тех, у кого Delphi5:

function GetDayOfWeek(fCurDate: TDateTime): Integer;
type TDays=array[1..7] of Integer;
Const CDays: TDays=(7,1,2,3,4,5,6);
begin
Result:=CDays[DayOfWeek(fCurDate)]
end;
Получается первый день недели - понедельник.

А в календаре посмотреть?

← →
Andrey007 (2002-06-07 10:32) [6]

Так это и есть просмотр календаря.

День недели Найти похожие ветки