Как получить название месяца и дня недели из текущей даты?

← →
2012 (2011-08-18 00:32) [0]

Здравствуйте! Очень хочется узнать, как можно получить название месяца и дня недели из текущей даты. Чтобы запись была не вида: 18.08.2011, а к примеру: Четверг, 18 Августа 2011 года.
Как можно это реализовать? Спасибо)

← →
Ega23 © (2011-08-18 00:55) [1]

function MyDateFormat(Value: TDateTime): string; const cDayOfWeekNames: array [1..7] of string = ( "Воскресенье", "Понедельник", "Вторник", "Среда", "Четверг", "Пятница", "Шабат" ); cMonthNames: array [1..12] of string = ( "Января", "Февраля", "Марта", "Апреля", "Мая", "Июня", "Июля", "Августа", "Сентября", "Октября", "Ноября", "Декабря" ); var aDay, aMonth, aYear: Word; begin DecodeDate(Value, aYear, aMonth, aDay); Result := cDayOfWeekNames[DayOfWeek(Value)] + ", " + IntToStr(aDay) + " " + cMonthNames[aMonth] + " " + IntToStr(aYear) + " года"; end;

← →
2012 (2011-08-18 08:37) [2]

> Ega23 ©

ого, спасибо! )

← →
Inovet © (2011-08-18 09:59) [3]

Агки сгложная задача. Ега добрый сегодня.

← →
oldman © (2011-08-18 10:04) [4]

FormatDateTime("dddd d of mmmm yyyy", myDate)

Ега прикалывается сегодня, по доброму так...
:)))

← →
oldman © (2011-08-18 10:07) [5]

Автору в записную книжку:

http://www.delphisources.ru/pages/faq/faq_delphi_basics/FormatDateTime.php.html

← →
Dennis I. Komarov © (2011-08-18 13:32) [6]

> Ега добрый сегодня.

Не, он сегодня не в форме, иначе класс написал бы, да не просто класс... :)))

← →
Dennis I. Komarov © (2011-08-18 13:34) [7]

> oldman © (18.08.11 10:04) [4]

У него русс-версия

← →
Омлет © (2011-08-18 14:21) [8]

> oldman © (18.08.11 10:04) [4]
> FormatDateTime("dddd d of mmmm yyyy", myDate)

Выдаст четверг 18 of Август 2011.

> Ega23 © (18.08.11 00:55) [1]

Фу...
const CSIDL_RECENT = $0011; SUBLANG_RUSSIAN = $01; LANG_SYSTEM_RUSSIAN = (SUBLANG_RUSSIAN shl 10) or LANG_RUSSIAN; LOCALE_RUSSIAN = (SORT_DEFAULT shl 16) or LANG_SYSTEM_RUSSIAN; ... var wsDate: WideString; idx: Integer; ... idx := 127; SetLength(wsDate, idx); idx := GetDateFormatW(LOCALE_RUSSIAN, DATE_LONGDATE, nil, nil, @wsDate[1], idx); MessageBoxW(0, @wsDate[1], "Date", MB_OK); ...

> oldman © (18.08.11 10:04) [4]
> Плохиш © (18.08.11 14:24) [9]

ТЗ было "Четверг, 18 Августа 2011 года."
День недели и месяца - с заглавной буквы, "года", а не "г." и запятая после дня недели.

> Ega23 © (18.08.11 14:36) [10]
>
>
> > oldman © (18.08.11 10:04) [4]
> > Плохиш © (18.08.11 14:24) [9]
>
>
> ТЗ было "Четверг, 18 Августа 2011 года."

Изучить описание параметров указанной функции есть домашнее задание.

> Изучить описание параметров указанной функции есть домашнее
> задание.

Ну may be, may be.
Мне в час ночи думать было лень. :)

Как получить название месяца и дня недели из текущей даты? Найти похожие ветки