Текущий архив: 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.025 c