Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Какой сегодня день недели? [D6, Win95/98]

Dr. Genius © (2004-10-11 09:39:00)
Вопрос, думаю, из оригинальных. Меня не устраивает то, что функции TimeToStr, DateToStr и DateTimeToStr выводят дату и время в неудобочитаемом формате. Поэтому я написал функцию, которая выводит дату в следующем виде: 11 октября 2004 г. Но я ещё хочу сделать, чтобы выводился день недели. Итак, как можно узнать день недели (понедельник, вторник, среда...)?

MBo (2004-10-11 09:58:00) [1]
function DateFormatStr(ADate: TDate; AFormat: String): String;
var
st: TSystemTime;
buffer: array [0..$FFF] of Char;
begin
DateTimeToSystemTime(ADate, st);
Win32Check(GetDateFormat( LOCALE_USER_DEFAULT,
0,
@st,
Pointer(AFormat),
buffer,
SizeOf(buffer)) > 0);
Result := buffer;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := DateFormatStr(Date, LongDateFormat+', dddd');
end;

KSergey (2004-10-11 09:51:00) [2]
> [4] КаПиБаРа © (11.10.04 09:49)
> Зачем case of?
> ArrayDaysOfWeek!

Я сначала написал - потом подумал... Но было поздно ;)

MBo (2004-10-11 09:49:00) [3]
>которая выводит дату в следующем виде: 11 октября 2004 г.
GetDateFormat

КаПиБаРа (2004-10-11 09:49:00) [4]
KSergey © (11.10.04 9:47) [2]
Зачем case of?
ArrayDaysOfWeek!

KSergey (2004-10-11 09:47:00) [5]
> [1] КаПиБаРа © (11.10.04 09:42)

+ case of

КаПиБаРа (2004-10-11 09:42:00) [6]
Dr. Genius (11.10.04 9:39)
F1 - DayOfWeek, FormatDateTime

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »