| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
День недели [D5, WinME, WinXP]
Керик © (2002-06-07 05:20:00)Помогите, плиз! Как определить день недели текущей даты?
Andrey007 (2002-06-07 10:32:00) [1]Так это и есть просмотр календаря.
zero (2002-06-07 10:04:00) [2]А в календаре посмотреть?
Andrey007 (2002-06-07 09:53:00) [3]Для тех, у кого 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;
Получается первый день недели - понедельник.
Song (2002-06-07 09:27:00) [4]2Dennn_is (07.06.02 08:03)
:)
2Керик (07.06.02 05:20)
DayOfWeek() - ISO
DayOfTheWeel() - ГОСТ
Dennn_is (2002-06-07 08:03:00) [5]Я делал так:
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;
fnatali (2002-06-07 07:01:00) [6]DayOfWeek ?
| |
