Главная страница
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.024 c
1-65119
sdram
2002-06-06 11:25
2002.06.20
Как создать поумолчанию невидимый СomboBox ?


1-65033
amputator111111
2002-06-09 17:48
2002.06.20
Проверка орфографии в Memo/RichEdit?


1-65120
Voldemar
2002-06-06 17:45
2002.06.20
TreeView и PopUpMenu


3-64955
Dok_3D
2002-05-27 13:58
2002.06.20
Почему TDataSetProvider не поддерживает ...


1-65112
MARcoDEN
2002-06-05 21:43
2002.06.20
Взаимосвязь двух программ