Форум: "Основная";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];
ВнизОпределение дня недели по дате. Найти похожие ветки
← →
NightCon (2002-05-22 09:08) [0]Не помогут ли мне гуру с такой проблемой: необходимо заполнить массив числами, соответствующими выходным дням месяца. Сам вопрос можно сформулировать так: какой функцией можно определить, каким днем недели я вляется введенная дата?
← →
Lord Warlock (2002-05-22 09:13) [1]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
← →
onix (2002-05-22 09:19) [2]DayOfWeek(Data);
Это описано в Help"e.
← →
Slava (2002-05-22 09:47) [3]А также DayOfTheWeek(Date)
DayOfTheWeek returns a value between 1 and 7, where 1 indicates Monday and 7 indicates Sunday.
← →
Song (2002-05-22 09:55) [4]Одна по стандарту ГОСТ, другая по ISO
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c