DatetoStr

[MasterofCDM]

Как сделать так, чтобы при преобразовании даты в строку месяц показывался не цифрами, а целиком?

[А. Долматов]

formatdatetime тебе в помощь

[_SERGEYX_]

//Пример использования
// Label.Caption := FormatDateTime('c',Now);

с
Отображает сначала дату в формате дд.мм.гг, затем пробел и время в формате чч.мм. ее: 08.06. 99 19:45
d
Отображает день без ведущего нуля: 8
dd
Отображает день с ведущим нулем: 0 8
dddd
Отображает день недели: воскресенье (для нерусифицированной версии Windows - Sunday)
ddddd
Отображает дату в формате дд. мм. гг: 08.06.99
dddddd
Отображает дату в формате д Месяц год: 8 Июнь 1999 (для нерусифицированной версии Windows - 8 June 1999)
m
Отображает число месяца без ведущего нуля: 6
mm
Отображает число месяца с ведущим нулем: 06
nunm
Отображает сокращенное название месяца: июн.
nuninm
Отображает полное название месяца: Июнь
у или уу
Отображает две последние цифры года: 9 9
ууу или уууу
Отображает все цифры года: 1999
h
Отображает час без ведущего нуля: 19
hh
Отображает час с ведущим нулем: 19
n
Отображает минуты без ведущего нуля: 4 5
nn
Отображает минуты с ведущим нулем: 4 5
s
Отображает секунды без ведущего нуля: 0
ss
Отображает секунды с ведущим нулем: 00
t
Отображает время в формате чч:лш: 19:45
tt
Отображает время в формате чч:мм:сс: 19:45:00
am/pm
Отображает время в 12-часовом формате (am - до полудня, pm - после полудня). Для спецификаторов hh: mm am/pm получим 07:45 pm
ampm
Отображает время в 12-часовом формате, но без указания до/после полудня. Для спецификаторов hh: mm ampm получим 07:45
a/p
Отображает время в 12-часовом формате (а - до полудня, р - после полудня). Для спецификаторов hh: mm a/p получим 07:45 р
/
Отображает используемый в Windows разделитель даты. Для спецификаторов d/m/у получим 8. 6. 99
:
Отображает используемый в Windows разделитель времени. Для спецификаторов h:n: s получим 19:45:0

[MasterofCDM]

Спс за помощь, нельзя ли форматировать так, чтобы было к примеру 17 июня 2000 г., чтобы соблюдался падеж (от 17 июня 2000 г.)

[_SERGEYX_]

function DataProp(S: TDateTime): string;
const
   Mes: array[1..12] of string = ('января', 'февраля', 'марта', 'апреля',
      'мая', 'июня', 'июля', 'августа', 'сентября', 'октября', 'ноября',
      'декабря');
var
   Year, Month, Day: Word;
begin
   DecodeDate(S, Year, Month, Day);
   Result := IntToStr(day) + ' ' + Mes[Month] +' ' + IntToStr(Year) + ' г.';
end;

[MasterofCDM]

Спасибо!!!