中
小 订阅
时间转字符串，通常是
datetimetostr(t:tDATETIME;F:TFormatSettings)
timetostr(t:tDATETIME;F:TFormatSettings)
字符串转时间则是：
strtodatetime(t:String;F:TFormatSettings);
还有其它类似的函数，此处略。
关键是TFormatSettings的设置和获取。
--------------------------------------------------------------------------------
例子1:
GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT,f); //或者本地的格式。
edt1.text:=datetimetostr(now,f);
例子2：
var
f:TFormatSettings;
begin
f.ShortDateFormat:='yyyy/MM/dd';
f.DateSeparator:='/';
f.TimeSeparator:=':';
f.LongTimeFormat:='hh:mm:ss';
edt1.text:=datetimetostr(now,f);
end;
日期函数二
1． StrToDate
语法：Function StrToDate（const S：String）：TDateTime；
功能描述：分析一个字符串用来转换为日期信息。这个字符串必须是包含一个日期信息并采用ShortDateFormat所确定的生命，并且日期的各部分还必须以待定日期分隔符隔开。如果字符串仅仅包含两个数字，则会被解释成当前年份的月份和日期。如果年份中仅包含两个数字，则年份值会根据TwoDigitYearCenturyWindow变量来扩展成四位数，如果字符串的声明不对，则会报告一个EconVertError异常。
2． StrToDateTime
语法：Function StrToDateTime（const S：String）：TDateTime；
功能描述：分析一个字符串，并返回一个日期/时间信息。这个字符串开始处可以是一个采用StrToDate所要求声明的日期信息。如果日期信息被省略，则StrToDateTime函数会默认使用当前日期。时间和日期部分要以一个或多个空格隔开。时间信息必须符合StrToTime所要求的声明。如果字符串的声明不对，则会报告一个EconVertError异常。
3． StrToTime
语法：Function StrToTime（const S：String）：TDateTime；
功能描述：StrToTime函数分析一个字符串用来返回一个表示时间的信息。这个字符串必须至少包含两个到三个以TimeSeparator分隔符隔开的数字。时间字符串的开始和结尾可以是一个AM或PM的标志字符，但必须是TimeAMString，TimePMString。如果不包含则默认为24小时制。如果字符串的声明不对，则会报告一个EconVertError异常。
4． SystemTimeToDateTime
语法：Function SystemTimeToDateTime（const SystemTime：TSystemTime）：TDateTime；
功能描述：将Windows系统时间转换成相对应的TDateTime时间。
5． Time
语法：Function Time：TDateTime
功能描述：Time返回当地时区的当前时间。
6． TimeToStr
语法：Function TimeToStr（Time：TDateTime）：String；
功能描述：将一个TDateTime变量的时间部分转换
成一个字符串，转换声明由LongTimeFormat全局变量指定。
7． WeekOf
语法：Function WeekOf（const AValue：TDateTime）：Word；
功能描述：返回给丁的TDateTime类型值所处的年份星期数，返回值在1~53之间。WeekOf使用ISO8601 标准定义，即每周从星期一开始到星期一结束，第一个星期必须至少包含本年度的4天。
8． WeeksBetween
语法：Function WeeksBetween（const ANow，AThen：TDateTime）：Integer；
功能描述：返回给丁的两个TDateTime类型值之间间隔的整星期数。
9． WeeksInYear
语法：Function WeeksInYear（const AValue：TDateTime）：Word；
功能描述：返回给定的TDateTime类型值代表的年份所具有的星期数，通常返回52或53。本函数遵循ISO8601标准。
10． Yesterday
语法：Function Yesterday：TDateTime；
功能描述：返回代表前一天的TdateTime类型值。下载本文
