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

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

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

Выделение из даты название месяца ;- напр, ЯНВАРЯ [D3, Win95/98, Win2k]

Fishka © (2003-01-23 11:40:00)
Есть переменная со значением 5.01.2003. Как получить название месяца - января (без создания массивов с названиями месяцев)?

Fishka (2003-01-23 13:17:00) [1]
MBo © (23.01.03 12:34)
Спасибо большое!
Как бы еще всему этому научиться...

MBo (2003-01-23 12:34:00) [2]
procedure TForm1.Button1Click(Sender: TObject);
var
st:SystemTime;
datestring:array[byte] of Char;
begin
DateTimeToSystemTime(Now,st);
GetDateFormat(LOCALE_USER_DEFAULT,DATE_USE_ALT_CALENDAR,
@st, "dd MMMM yyyy

Separator (2003-01-23 12:12:00) [3]
нет, мне во всяком случае не известно, это где-то в windows зашито

Fishka (2003-01-23 12:10:00) [4]
gek © (23.01.03 12:02)
Первую букву перевести в маленькую -AnsiLowerCase. Ну, ладно.
Убрать последнюю. Допустим. Проанализировать название месяца. Если это март или август, то добавить а, в противном случае - я.
Вроде, ничего не забыто. Так, что ли?
Ну, тогда уж лучше создать массив с названиями месяцев в род. пад. и брать из массива.
А чтобы не городить огород, просто взять, как нужно, нельзя?

REA (2003-01-23 12:10:00) [5]
Исходники пикера и посмотреть. Например с Августом Delete не покатит, котя процедурка все-равно не больше 10 строк будет (для русского языка).

gek (2003-01-23 12:02:00) [6]
AnsiLowerCase
Delete

Fishka (2003-01-23 11:58:00) [7]
FormatDateTime("mmmm", StrToDate("5.01.2003")) выдает Январь.
А мне нужно января (в родительном падеже и с маленькой буквы), чтобы в таком виде вставить в документ. В компоненте DatetimePicker в длинном формате мы видим именно с маленькой буквы и в родительном падеже. Такое же получить можно и как?

Separator (2003-01-23 11:49:00) [8]
или
FormatDateTime("mmmm", StrToDate("5.01.2003")) - результат будет в виде January-December

а вообще посмотри справку по Date-Time format strings

Separator (2003-01-23 11:46:00) [9]
FormatDateTime("mm", StrToDate("5.01.2003"))

Игорь Шевченко (2003-01-23 11:42:00) [10]
sysutils.pas - ShortMonthNames, LongMonthNames

Наверх

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