Visual Basic Date 函数

定义和用法

Date 函数可返回当前的系统日期。

语法

Date

提示和注释

重要事项：如果同时读取 Date、Time 以及 Now，那么 Now = Date + Time，但是实际上，我们不可能同时调用这三个函数，因为执行完一个函数之后，才能执行另一个函数，所以如果您在程序中必需同时取得当时的日期和时间，必需调用 Now，再利用 DateVale 及 TimeValue 分别取出日期和时间。

实例：取得某一时间点的日期和时间：

N = Now '这个时间点的日期和时间
D = Datevalue(N) '同一时间点的日期部分
T = TimeValue(N) '同一时间点的时间部分
D2 = Date '时间点1的日期
T2 = Time '时间点2的时间

问题思考

连续执行 Response.Write Now 及 Response.Write Date + Time，则可能出现的最大误差值有多大？假设：

时间点 1 取得的 Now = #7/1/95 23:59:59#
时间点 2 取得的 Date = #7/1/95#

而如果 "时间点3" 刚好跨过一日，所以 Time = #0:00:00，于是 Now 与 Date+Time 的差距便成了23:59:59。

实例

例子 1

Module Module1
    Sub Main()
        Console.WriteLine("The current system date is: ")
        Console.WriteLine(New Date())
    End Sub
End Module

输出：

The current system date is: 1/14/2002