Месяц прописью

← →
vlad_ir (2003-11-09 20:14) [0]

Уважаемые мастера!
Подстажите, если можно, как через массив месяцев сделать пропись месяцев в родительном падеже и с маленькой буквы, ведь
formatdatetime("dd mmmmm yyyy" выдает сообщение месяца в именительнои падеже и с большой буквы!
Зараннее спасибо!

← →
Anatoly Podgoretsky © (2003-11-09 20:22) [1]

Сделай константный массив [1..12] of string

← →
vlad_ir (2003-11-09 20:37) [2]

А можно по-подробнее
примерно так:
i:integer;
a:array[1..12]of string=(" января"," февраля" и далее
if formatdatetime("dd mmmmm yy")=formatdatetime("dd.01.yyyy) then
label1.CAption:=formatdatetime("dd"+a[i] - или нет?

примерно так:
var Months: array[1..12] of String = ("января", ...); YYYY, MM, DD: Word; ... DecodeDate(Now, YYYY, MM, DD) Label1.Caption := IntToStr(DD) + Months[MM] + IntToStr(YYYY);

Месяц прописью Найти похожие ветки