Выделение из даты название месяца

← →
Fishka (2003-01-23 11:40) [0]

Есть переменная со значением 5.01.2003. Как получить название месяца - января (без создания массивов с названиями месяцев)?

← →
Игорь Шевченко (2003-01-23 11:42) [1]

sysutils.pas - ShortMonthNames, LongMonthNames

← →
Separator (2003-01-23 11:46) [2]

FormatDateTime("mm", StrToDate("5.01.2003"))

← →
Separator (2003-01-23 11:49) [3]

или
FormatDateTime("mmmm", StrToDate("5.01.2003")) - результат будет в виде January-December

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

← →
Fishka (2003-01-23 11:58) [4]

FormatDateTime("mmmm", StrToDate("5.01.2003")) выдает Январь.
А мне нужно января (в родительном падеже и с маленькой буквы), чтобы в таком виде вставить в документ. В компоненте DatetimePicker в длинном формате мы видим именно с маленькой буквы и в родительном падеже. Такое же получить можно и как?

← →
gek (2003-01-23 12:02) [5]

AnsiLowerCase
Delete

← →
Fishka (2003-01-23 12:10) [6]

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

← →
REA (2003-01-23 12:10) [7]

Исходники пикера и посмотреть. Например с Августом Delete не покатит, котя процедурка все-равно не больше 10 строк будет (для русского языка).

← →
Separator (2003-01-23 12:12) [8]

нет, мне во всяком случае не известно, это где-то в windows зашито

← →
MBo (2003-01-23 12:34) [9]

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

← →
Fishka (2003-01-23 13:17) [10]

Выделение из даты название месяца - напр, ЯНВАРЯ Найти похожие ветки