Текущий архив: 2003.11.20;
Скачать: CL | DM;
Вниз
Месяц прописью Найти похожие ветки
← →
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] - или нет?
← →
willys © (2003-11-09 21:47) [3]примерно так:
var
Months: array[1..12] of String = ("января", ...);
YYYY, MM, DD: Word;
...
DecodeDate(Now, YYYY, MM, DD)
Label1.Caption := IntToStr(DD) + Months[MM] + IntToStr(YYYY);
Страницы: 1 вся ветка
Текущий архив: 2003.11.20;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.017 c
