将日期转化为汉语的形式

日期：2007年7月23日作者：查看:[大字体中字体小字体]

在DELPHI中没有直接将日期转化为汉语的形式，用起来很不方便，如：“2001年5月23日”在一些特殊场合需要转化为汉语，“二○○一年五月二十三日”
    在这里有一个函数可以直接进行转化，在这里和大家共享，原代码如下：

procedure datechange(var Dyear, Dmonth,Dday:string;
     const ADate:Tdatetime);  //转化日期
function  DCDate(ADate:TDateTime):TDDate;//将时间转化为汉字形式
function  DCmonth(DMonth:string):string; //将月转化为汉字形式
function  DCDay(DDay:string):string;     //将日转化为汉字形式
function  DCYear(Dyear:string):string;   //将年转化为汉字形式

implementation
//以下是实现部分。

procedure datechange(var Dyear, Dmonth,Dday:string;
   const ADate:Tdatetime);
begin
  Dyear:=formatdatetime('yyyy',Adate);
  Dmonth:=formatdatetime('mm',Adate);
  Dday:=formatdatetime('dd',Adate);
end;

function TDWF.DCDate(ADate: TDateTime):TDDate;
var  kk:TDdate;
     sY,sM,sD:string;
begin
  datechange(sy,sm,sd,Adate);
  kk.year :=dcyear(sy);
  kk.month :=DCmonth(sm);
  kk.day:=DCday(sd);
  result:=kk;
end;

function TDWF.DCDay(DDay: string): string;
const  CDDay:array[1..31] of string=(
        '一','二','三','四','五','六','七','八','九','十','十一',
          '十二','十三','十四','十五','十六','十七','十八','十九',
        '二十','二十一','二十二','二十三','二十四','二十五','二十六',
           '二十七','二十八','二十九','三十','三十一'); //日期的汉语表示
[1] [2] [3] 下一页
将日期转化为汉语的形式相关文章：
·AutoCAD造型实例：十字形螺丝刀头
·AutoCAD造型实例：一字形螺丝刀头
·Photoshop给美女带上美丽彩瞳隐形眼镜
·Photoshop初学者轻松制作条形码
·Photoshop为美女制作多彩的隐形眼镜
·系统漏洞的形成和防治办法
·2010年温哥华冬奥会吉祥物形象揭晓
·Vista的Ping告诉你本机地址的IPv6形式
·AutoCAD中如何计算二维图形的面积
·网络工程师讲解系统安全漏洞的形成和防治
将日期转化为汉语的形式相关软件
·变形金刚游戏GT独占宣传片
·《变形金刚》100%通关存档
·NDS《变形金刚汽车人篇》模拟器
·NDS《F24 隐形战斗机》模拟器
·NDS《变形金刚》狂派（美）模拟器
·团队制作：官场现形记《傅二棒槌》
·街机游戏《异形3》模拟器
·手绘搞笑《变形金刚》漫画
·异形
·图形配对

上一篇:界面色彩渐变效果的实现

下一篇:键盘对图像的移动操作

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

将日期转化为汉语的形式

精品推荐

热点TOP10

特别推荐