| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Определение дня недели из заданой даты [D6, Win95/98, WinME]
Charlz © (2002-06-16 16:23:00)Пожалуйста дайте пример, как определить день недели для заданной даты. Зарание спасибо!
Kr_Alex (2002-06-16 22:38:00) [1]Если дата в формате TDateTime то
FormateDateTime("dddd",YourDate).Если дата в string то перевести её в TDateTime можно функцией StrToDate.
~RAND~ (2002-06-16 20:59:00) [2]Удалено модератором
Anatoly Podgoretsky (2002-06-16 20:35:00) [3]Такой массив уже есть в системе, и даже два и даже локализирован, называются
var ShortDayNames: array[1..7] of string;
var LongDayNames: array[1..7] of string;
Сатир (2002-06-16 20:26: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;
©Delphi Help;-)
с уважением.
Anatoly Podgoretsky (2002-06-16 16:24:00) [5]Перевод: Day Of Week
| |
