数据类型中日期的使用

日期 (Date) 也是一种常用的数据类型 (Data Type)。Date 可包含年月日小时分钟秒的信息。日期的大小范围是从 0001 年 1 月 1 日到 9999 年 12 月 31 日。

日期的缺省值是 0001 年 1 月 1 日 0:00:00。

如何表示日期

在表示日期时，你必须用 ## 将日期围起来。如下：

theDate = #12/2/2006 2:10:00 PM#

上面这句代码表示将一个 2006 年 12 月 2 日下午 2 点 10 分的日期值赋给 theDate 这个变量。

注意

你必须以 m/d/yyyy 的格式表示日期，不管你计算机上的区域和日期如何设置 (Control Panel 中 Regional and Language Options 里可设) 。

这样的显示是为了避免程序出错。比如你在程序中用 #3/4/1998# 表示 1998 年 3 月 4 日，假使将你这个程序装在其它机器上，而这台机器上的日期设置却是 dd/mm/yyyy，那你这个日期表示就变成了 1998 年 4 月 3 日。我们再将你的程序装在另外一个机器上，该机器上的日期设置是 yyyy/mm/dd，结果就变成了 0003 年 4 月 1998 日，这是个无效日期，会导致程序编译错误。

这里稍微解释一下刚才所用日期格式的表示，m 表示月份，d 表示日期，y 表示年份。

我们做个简单示例，演示一下如何表示日期。

打开 Visual Studio。在文件 (File) 菜单上，单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序 (Windows Application)。在名称 (Name) 框中键入 ShowDate，再单击确定 (OK)。

单击工具箱 (Toolbox) 里的按钮 (Button) 控件，按住鼠标将其拖放到 Form 1 上。然后在属性 (Properties) 窗口内将其 Name 属性改为 btnShow，将其 Text 属性设为 Show。然后双击该按钮，出现 Click 事件处理程序头尾两行代码，如下：

Private Sub btnShow_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles btnShow.Click

End Sub

在其间加入如下代码：

'Declare variable

Dim theDate As Date

'Set the date value

theDate = #12/2/2006 2:10:00 PM#

'Display the results

MessageBox.Show(theDate, "Show Date")

选择调试 (Debug) 菜单中的 开始调试 (Start Debugging)，运行该程序。或者直接按快捷键 F5 运行。

会弹出一个消息框，消息框中显示了所赋值的日期。按确认 (OK) 即可关闭消息框。

如何表示当前日期

用 Now 可以表示当前日期。将上面的示例修改一下，将

theDate = #12/2/2006 2:10:00 PM#

改成

theDate = Now

便可以得到当前日期。这个日期是你程序所运行的机器上的当前日期。

如何分别得到日期的年、月、日、小时、分钟、秒等信息

用 Year 属性可以得到日期的年份值。

用 Month 属性可以得到日期的月份值。

用 Day 属性可以得到日期的日值。

用 Hour 属性可以得到日期的小时值。

用 Minute 属性可以得到日期的分钟值。

用 Second 属性可以得到日期的秒值。

用 DayOfWeek 属性可以知道该日期是一个星期的第几天。

注意

DayOfWeek 从 0 算起，星期天用 0 表示，星期一用 1 表示，依次类推，星期六用 6 表示。

用 DayOfYear 属性可以知道该日期是一年的第几天。

下面一个示例，演示了上述属性的用法。

打开 Visual Studio。在文件 (File) 菜单上，单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序 (Windows Application)。在名称 (Name) 框中键入 ShowDateProp，再单击确定 (OK)。

单击工具箱 (Toolbox) 里的按钮 (Button) 控件，按住鼠标将其拖放到 Form 1 上。然后在属性 (Properties) 窗口内将其 Name 属性改为 btnShow，将其 Text 属性设为 Show。然后双击该按钮，出现 Click 事件处理程序头尾两行代码，如下：

Private Sub btnShow_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles btnShow.Click

End Sub

在其间加入如下代码：

Dim theDate As Date = Now

Dim intYear As Integer = theDate.Year

Dim intMonth As Integer = theDate.Month

Dim intDay As Integer = theDate.Day

Dim intHour As Integer = theDate.Hour

Dim intMin As Integer = theDate.Minute

Dim intSec As Integer = theDate.Second

Dim intDayWeek As Integer = theDate.DayOfWeek

Dim intDayYear As Integer = theDate.DayOfYear

MessageBox.Show(theDate, "show date")

MessageBox.Show("Year: " & intYear, "show date properties")

MessageBox.Show("Month: " & intMonth, "show date properties")

MessageBox.Show("Day: " & intDay, "show date properties")

MessageBox.Show("Hour: " & intHour, "show date properties")

MessageBox.Show("Minute: " & intMin, "show date properties")

MessageBox.Show("Second: " & intSec, "show date properties")

MessageBox.Show("Day of Week: " & intDayWeek, "show date properties")

MessageBox.Show("Day of Year: " & intDayYear, "show date properties")

选择调试 (Debug) 菜单中的 开始调试 (Start Debugging)，运行该程序。或者直接按快捷键 F5 运行。

运行以后，会弹出一系列对话框，分别显示当前日期的年、月、日、小时、分钟、秒的部分，还会显示该日期是一个星期的第几天，是一年的第几天。

如何对日期进行加减运算

用 AddYears 方法可以为指定日期加减年数。

用 AddMonths 方法可以为指定日期加减月数。

用 AddDays 方法可以为指定日期加减日数。

用 AddHours 方法可以为指定日期加减小时数。

用 AddMinutes 方法可以为指定日期加减分钟数。

用 AddSeconds 方法可以为指定日期加减秒数。

上述方法的用法是一样的，只不过加减的部分不一样。我们选 AddDays 作示例，其它方法的使用参照这个示例就行了。

打开 Visual Studio。在文件 (File) 菜单上，单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序 (Windows Application)。在名称 (Name) 框中键入 ShowDateMethod，再单击确定 (OK)。

单击工具箱 (Toolbox) 里的按钮 (Button) 控件，按住鼠标将其拖放到 Form 1 上。然后在属性 (Properties) 窗口内将其 Name 属性改为 btnShow，将其 Text 属性设为 Show。然后双击该按钮，出现 Click 事件处理程序头尾两行代码，如下：

Private Sub btnShow_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles btnShow.Click

End Sub

在其间加入如下代码：

Dim theDate As Date = Now

dim newDate As Date 

newDate = theDate.AddDays(50)

MessageBox.Show(newDate, "show new date")

选择调试 (Debug) 菜单中的 开始调试 (Start Debugging)，运行该程序。或者直接按快捷键 F5 运行。

你会看到弹出对话框里的日期比当前日期多加了50天。

AddDays () 里的参数可以是整数也可以是负数。比如：

AddDays(50) '表示加 50 天

AddDays(-50) '表示减 50 天

作者：woyouxian[at]gmail[点]com

时间：2006-12-2

返回上级目录

VB 2005 入门教程