Delphi日期函数
所在单元： DateUtils
Day 开头的函数
1、DayOf()
描述： 使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个 只带有日期的 TDateTime 类型变量。 例如： showmessage(DateTimetostr(dateof(now()))); 你得到的是 2003/03/19 而 showmessage(DateTimetostr((now()))); 得到的是
2、DateTimeTostr()
描述： DateTimeToString 函数将 TDateTime 类型的参数 DateTime 转换成一个 字符串，使用给定的全局变量 ShortDateFormat 的格式，时间部分按照 给定的全局变量 LongTimeFormat 的格式。 其中 DateTime 为零的部分将不会显示出来。 例如： ShortDateFormat:=’yyyy mm dd’; showmessage(DateTimetostr((now()))); 你将得到：2003
3、DateTimeToString
描述： DateTimeToString 方法将TDateTime类型的参数DateTime 按照由参数Format提供的格式 转化成字符串，并保存在Result中。 对于Format的格式类型，请看 Date-Time format strings 的帮助。 例如： DateTimeToString(result,’yyyy mm dd’,now()); 那么 result的结果为：2003
4、DateTimeToSystemTime ()
描述： 有时为了调用API函数来使用系统时间，你可以使用 DateTimeToSystemTime 方法，来将一个 TDateTime 类型的时间变量转换成一个 TSystemTime 类型的 系统时间。
5、DateTimeToUnix ()
描述： 使用 DateTimeToUnix 函数来将一个 TDateTime 型时间变量转换成一个相应的 Unix 格式 的日期和时间。
6、DateToStr（）
描述： 使用 DateToStr 函数能得到 TDateTime 日期时间类型的日期部分。日期的转换格式依赖于 全局变量 ShortDateFormat。
7、DayOf 与DayOfTheMonth
描述： 对于给定的TDateTime类型的日期时间，使用 DayOf 函数能得到该日期是该月份的第几天。 该函数的返回数值在 1 到 31 之间 注意：DayOf 函数得到的结果与 DayOfTheMonth 相同。 例如： showmessage(inttostr(dayof(now))); 得到的是：19 （今天是 某月19日） 与 DayOf 相同。
8、DayOfTheWeek
描述： 对于给定的TDateTime类型的日期时间，使用 DayOfTheWeek 函数能得到该日期是该星期的 第几天。DayOfTheWeek 函数的返回数值为 1 到 7，其中 1 表示星期一，而 7 表示星期日。 注意：DayOfTheWeek 是 ISO 8601 标准的（此标准为 星期一是一周的第一天）。对于一周 的第一天是星期日的标准，如果想获得星期数，请使用 DayOfWeek 函数。
9、DayOfTheYear
描述： 根据给定的
相关文档：
http://book.77169.com/data/web5302/20050228/20050228__3692503.html
ActiveX 和 Web
在Windows 操作系统下，有一个重要的机制，就是OLE ，就是可以让某
个应用程序（OLE Controller）访问其它应用程序（OLE Server）所提供的
功能，这样做的好处是，如果已经有了完成某项功能的程序，你就不必再为
某项功能编写特定 ......
function ExpCalc(exp: string): string;
var
vScript: Variant;
begin
vScript := CreateOleObject('ScriptControl');
vScript.Language := 'VBScript';
Result := vScript.Eval(exp);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:=ExpCalc('100 *4.17/0.5*(55. ......
1.Round（四舍六入五留双）
功能说明：对一个实数进行四舍五入。(按照银行家算法)
例：
var
i, j: Integer;
begin
i := Round(1.5); // i等于2
j := Round(2.5); // j等于2
end;
在Delphi中使用Round函数得到的答案有时与我们所预期的会不太一样：采用的是四舍六入五留双。即当舍或入位大于或小于五� ......
Delphi的方法类型有：
1.静态方法 (Static) 默认类型，可以省略关键字
2.虚拟方法 (Virtual)
3.动态方法 (Dynamic)
4.消息方法 (Message)
5.抽象法方 (Abstract)
=======================================================
1）静态方法[static]
静态方法类似于通常的过程和函数，编译器在编译时就已指定了输出该方� ......
