日期格式转换问题。

Question

如何将日期'20031108'转换成二〇〇一年十一月八日

Answer 1

自己写函数吧,两个函数即可.一个是转换数字为汉字节的,另一个是转日期型的.
可能用到的函数:decodedate
例:
var
  dYourDate: TDatetime;
  wYear, wMon, wDay: word;
begin
  dYourDate := StrToDate('2003-11-08');
  decodedate(dYourDate, wYear, wMon, wDay);
  //然后将wYear,wMon,wDay值转换为大写的.再组合在一起即可.
end;

Answer 2

S := FormatDateTime('yyyyy年mmmmdd日', Now);

Answer 3

根据大小写金额的做法写函数吧：http://218.56.11.178:8000/web/file_Down.aspx?TypeID=2-》金额小写转大写

Answer 4

agree with  superlionet(彼岸)