Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.017 c
6-65191
Torry
2002-04-08 12:36
2002.06.20
Выдает сообщение


1-65065
@bas
2002-06-10 11:54
2002.06.20
---|Ветка была без названия|---


1-65164
Dr. Web
2002-06-07 15:47
2002.06.20
получить Иконки в MDIChild ах через Messages...


14-65231
Evgeny
2002-05-17 12:41
2002.06.20
Даже потрепаться модератор и то не дает


3-64944
svn1024
2002-05-27 15:23
2002.06.20
HELP. Установка из InstallShield. Проект на находит драйвера...