2050

2068

2020

10

2010

2103

2050

2068

      首先在区域设置中取得两位年份的起始年份，如在区域设置中设两位年份范围为1932-2031年，则起始年份为32年，如果这个起始年份为0，则认为两位年份表示的都是本世纪，如果其实年份大于0 ，则采用当前年份减去起始年份的值，这个值称为基准值，大于等于这个值则认为事本世纪，否则认为是下世纪，下面给出几个例子说明：

DateTimeToString 过程：

FormatDateTime 函数：

定义：procedure DateTimeToString(var Result: string; const Format: string; DateTime: TDateTime);

       function FormatDateTime(const Format: string; DateTime: TDateTime): string;

作用：通过定义Format字串中的格式得到要输出时间字符串，例如要输出“今天是2002年5月5日，星期五”就可以用这两种方法，这两个方法的作用相同，只是一个是通过共享变量取得输出字符串，值在Result中，一个是通过返回值取得输出字符串，DateTime参数是希望输出的日期值，Format由格式标志与附加字符串组合而成。附加字串用””圈起，就像C中的Printf函数.如“今天是2002年5月5日，星期五”的Format值就是 ‘”今天是”yyyy”年”mm”月”dd”日，” dddd’，yyyy,mm,dd,dddd都是格式标识，各种格式标识的解释如下：

       d      ：用一位或两位整数显示日子（1－31）

       dd     ：用两位整数显示日子，不足两位的用0补足（01－31）

       ddd    ：按缩略方式显示当前的星期号，如果Windows是英文版，则显示为Mon－Sun,如果是中文版，则显示同dddd。

       dddd   ：按完整方式显示当前的星期号，如Windows是英文版，则显示Monday－SumDay,如果是中文版，则显示星期一～星期日

       ddddd  ：按区域设置中的短日期格式输出。

       dddddd ：按区域设置中的长日期格式输出。

       m      ：用一位或两位整数显示月份（1－12）

       mm     ：用两位整数显示月份，不足两位的用0补足（01－12）

       mmm    ：使用缩略方式显示月份名称，英文版显示为Jan-Dec,中文版同mmmm

       mmmm   ：使用完整方式显示月份名称，英文版显示为January-December,中文版为一月～十二月

       yy     ：按两位整数方式显示年份（00－99）

       yyyy   ：按四位整数方式显示年份（0000－9999）

       h      ：用一位或两位整数显示小时（0－23）      

hh     ：用两位整数显示小时，不足两位的用0补足（00－23）

       n      ：用一位或两位整数显示分钟（0－60）      

       nn     ：用两位整数显示分钟，不足两位的用0补足（00－60）

       s      ：用一位或两位整数显示秒数（0－60）

       ss     ：用两位整数显示秒数，不足两位的用0补足（00－60）

       z      ：用一位至两位整数显示毫秒数（0－999）

       zzz    ：用三位整数显示毫秒数，不足三位的用0补足（000－999）

       tt     ：按照区域设置中的格式显示日期

       am/pm  ：用于12小时制的显示，带有AM的则表示从0点～12点，pm代表从12点~0点。

与时间相关的变量：

Delphi封装了区域设置的各种信息，并以此定义了一系列的变量，下面介绍与时间相关的部分变量：

DateSeparator  ：Char

日期分隔符，用于分隔年月日

TimeSeparator  ：Char

时间分隔符，用于分隔小时，分钟，秒

ShortDateFormat：String

区域设置中短日期格式的定义。

LongDateFormat ：String

区域设置中长日期格式的定义。

ShortTimeFormat：String

区域设置中短时间格式的定义。

LongTimeFormat ：String

区域设置中长时间格式的定义。

上一页  [1] [2] [3] [4]  下一页