Текущий архив: 2002.06.20;
Скачать: CL | DM;
Вниз
День недели Найти похожие ветки
← →
Керик (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;
Получается первый день недели - понедельник.
← →
zero © (2002-06-07 10:04) [5]А в календаре посмотреть?
← →
Andrey007 (2002-06-07 10:32) [6]Так это и есть просмотр календаря.
Страницы: 1 вся ветка
Текущий архив: 2002.06.20;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.019 c
