| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Определение дня недели по дате. [D6, Win2k]
NightCon © (2002-05-22 09:08:00)Не помогут ли мне гуру с такой проблемой: необходимо заполнить массив числами, соответствующими выходным дням месяца. Сам вопрос можно сформулировать так: какой функцией можно определить, каким днем недели я вляется введенная дата?
Song (2002-05-22 09:55:00) [1]Одна по стандарту ГОСТ, другая по ISO
Slava (2002-05-22 09:47:00) [2]А также DayOfTheWeek(Date)
DayOfTheWeek returns a value between 1 and 7, where 1 indicates Monday and 7 indicates Sunday.
onix (2002-05-22 09:19:00) [3]DayOfWeek(Data);
Это описано в Help"e.
Lord Warlock (2002-05-22 09:13:00) [4]procedure TForm1.Button1Click(Sender: TObject);
var
ADate: TDateTime;
days: array[1..7] of string;
begin
days[1] := "Sunday";
days[2] := "Monday";
days[3] := "Tuesday";
days[4] := "Wednesday";
days[5] := "Thursday";
days[6] := "Friday";
days[7] := "Saturday";
ADate := StrToDate(Edit1.Text);
ShowMessage(Edit1.Text + " is a " + days[DayOfWeek(ADate)];
end;
из Depphi help
| |
