Форум: "Основная";
Текущий архив: 2002.06.20;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Керик   (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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.007 c