TimeToStr函数中有汉字问题 ( 积分: 5 )

我想得到当前的时间,作为一种订单号的算法,可是用TimeToStr当系统时间是12小时计时法时却有上午6:10 10 下午6:0 等汉字,如何让系统始终以24小时计时法的字符串

procedure DateTimeToString(var Result: string; const Format: string; DateTime: TDateTime);描述：
DateTimeToString 方法将TDateTime类型的参数DateTime 按照由参数Format提供的格式
转化成字符串，并保存在Result中。
对于Format的格式类型，请看 Date-Time format strings 的帮助。例如：
DateTimeToString(result,'yyyy mm dd',now());
那么 result的结果为：2003 03 19 10:50:49
●function DateToStr(Date: TDateTime): string;描述：
使用 DateToStr 函数能得到 TDateTime 日期时间类型的日期部分。日期的转换格式依赖于
全局变量 ShortDateFormat。
●function DayOf(const AValue: TDateTime): Word;描述：
对于给定的TDateTime类型的日期时间，使用 DayOf 函数能得到该日期是该月份的第几天。
该函数的返回数值在 1 到 31 之间
注意：DayOf 函数得到的结果与 DayOfTheMonth 相同。例如：
showmessage(inttostr(dayof(now)));
得到的是：19 （今天是 某月19日）
●function DayOfTheMonth(const AValue: TDateTime): Word;与 DayOf 相同。
●function DayOfTheWeek(const AValue: TDateTime): Word;描述：
对于给定的TDateTime类型的日期时间，使用 DayOfTheWeek 函数能得到该日期是该星期的
第几天。DayOfTheWeek 函数的返回数值为 1 到 7，其中 1 表示星期一，而 7 表示星期日。
注意：DayOfTheWeek 是 ISO 8601 标准的（此标准为 星期一是一周的第一天）。对于一周
的第一天是星期日的标准，如果想获得星期数，请使用 DayOfWeek 函数。
Tip: To make the return value more readable, use the Day of week constants.
●function DayOfTheYear(const AValue: TDateTime): Word;描述：
根据给定的日期时间参数AValue，使用 DayOfTheYear 函数能得到在该日期所在的年份中，该日期按照顺序所计算的天数。因此，作为TDateTime类型的变量 “1月1日”在该函数所得到的结果为 1 ，“1月2日”所得到的结果为 2，“2月1日”所得到的结果就为 32，依次类推。

date 函数 返回当前的日期
datetimetofiledate 函数 将delphi的日期格式转换为dos的日期格式
datetimetostr 函数 将日期时间格式转换为字符串
datetimetostring 函数 将日期时间格式转换为字符串
datetostr 函数 将日期格式转换为字符串
dayofweek 函数 返回星期的数值
dec 函数 递减变量值
decodedate 函数 将日期格式分解为年月日
decodetime 函数 将时间格式分解为时、分、秒、毫秒

FormatDateTime('yyyy-mm-dd hh:nn:ss', Now);

楼上的也可以。[8D]

接受答案了.