Форум: "Начинающим";
Текущий архив: 2011.12.04;
Скачать: [xml.tar.bz2];
ВнизКак получить название месяца и дня недели из текущей даты? Найти похожие ветки
← →
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.
← →
Плохиш © (2011-08-18 14:24) [9]
> 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);
...
← →
Ega23 © (2011-08-18 14:36) [10]
> oldman © (18.08.11 10:04) [4]
> Плохиш © (18.08.11 14:24) [9]
ТЗ было "Четверг, 18 Августа 2011 года."
День недели и месяца - с заглавной буквы, "года", а не "г." и запятая после дня недели.
← →
Плохиш © (2011-08-18 14:48) [11]
> Ega23 © (18.08.11 14:36) [10]
>
>
> > oldman © (18.08.11 10:04) [4]
> > Плохиш © (18.08.11 14:24) [9]
>
>
> ТЗ было "Четверг, 18 Августа 2011 года."
Изучить описание параметров указанной функции есть домашнее задание.
← →
Ega23 © (2011-08-18 14:50) [12]
> Изучить описание параметров указанной функции есть домашнее
> задание.
Ну may be, may be.
Мне в час ночи думать было лень. :)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2011.12.04;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.004 c