Delphi的时间处理

这几天因为自己要学习编写一个小程序中要用到一些时间处理。就在网上搜集一些教材学习到一般的应用，做个笔记，加深印象。

用上Delphi中相应的函数，Delphi的时间处理起来还是很容易的。

Delphi的时间类型是TDateTime,其实是一个Double.这个double的整数部分，就是从很久很久以前的某一天算起的天数。小数就是时间部分了。因为很远很远的一天是从0点开始的。所以小数部分的0值也是对应着一天的开始0点0分0秒。

用函数DateTimetoStr(0)就可以看到那神秘很远的一天了。这其中用数字0做参数，表明TDateTime是double.同理也可以用TimetoStr(0)，TimetoStr(0.5),看一看时间的转换。

函数：

DateTimetoStr()

DatetoStr()

TimetoStr()

strtotime('10:00:00)

strtodate('2006-2-8')

strtodatetime('2006-2-8 10:00:00')

注意其中日期时间显示的成文本时候的格式。

转换成文本时候，还有另外一个函数：

FormatDatetime(Formatestring,TDateTime):String

返回值依然是格式化好的string.倒是Formatstring是一个值得研究。

其有用的格式字符：mmmm表示月份， dd表示日， yyyy表示年， hh:mm:ss 是时间(其后用AM/PM 有无来切换12/24小时制)。当d单独写且超过三个ddd，则表示星期。除月日，其它各项间要用','间隔。里面可加用'""'包含的字符，会原样添加到返回值中。

Delphi help 中的一个例子：

S := FormatDateTime('"The meeting is on " ddd, mmmm d, yyyy, " at " hh:mm AM/PM',Now);

则s值为：The meeting is on Wednesday, February 15, 1995 at 2:30 PM

Now()，返回当前系统时间的TDateTime

既然TDateTime是一个double，相互之间是可以直接进行运算的。当然考虑到时间的实际意义，只能进行加和减的运算。比如：Now+1，就表示第二天的这个时候。Now-0.125表示3小时以前。

Now()是用来取系统时间，Win32的时间与delphi的TDateTime的格式还是不同的。

win32时间格式在delphi中定义为：TSystemTime,在delphi中我们可以不用直接处理它。例如now函数在取时间的时候已经帮我们自动转化成TDateTime格式了。

Now()的反向操作,改写系统时间。

用到一个win32 API函数：SetLocalTime(TSystemTime)

而TDateTime到TSystemTime的转换是用DateTimetoSystemTime(TDateTime,TSystemTime)

要注意的是其参数，而不是用函数的返回值得到TSystemTime。