VB中的时间处理问题

编程中常常会与时间打交道，VB编程自然也不例外。以下就谈谈我在这方面的一点经验。

VB中提供了很多变量类型，DATE型就是专门用了存储时间的。

1、DATE型变量及其相关函数。

在内部，一个Date占8个字节的内存，你可以方便地用它来存储日期和时间。给Date变量赋值是很容易的。但请保证输入顺序与系统默认的时间表示顺序相同。例如：

Dim d As Date

d = ＃5/23/99 11:45:34 AM＃

DateSerial函数可以把年、月、日的数字组合成一个Date值。TimeSerial函数可把小时、分、秒的数字组合成一个Date值。且两函数可以叠加。

d = DateSerial(1999, 5, 23) ＋ TimeSerial(11, 45, 34)

而DateValue 和TimeValue 函数则可将代表日期和时间的字符串转化为Date型，并且也可以叠加。

d = DateValue(“1999/ 5/ 23”) ＋ TimeValue(“11: 45: 34”)

Format函数可按预定的格式显示或打印一个Date变量。如：

Print Format(d, “general date”) `99－5－23 11:45:34

Print Format(d, “long date”) `1999年5月23日

Print Format(d, “medium date”） `99－05－23

Print Format(d, “short date”) `99－5－23

Print Format(d, “long time”) `11:45:34

Print Format(d, “medium time”) `11:45 AM

Print Format(d,“short time”) `11:45

Format函数也允许你自己规定显示格式。如：

Print Format(d, “mmmm”) `may 产生日期中月份的英文

以以上日期为例，如想显示其中的一部分信息可使用以下函数：

Print Month(d) `5

Print Day(d) `23

Print Year(d) `1999

Print Hour(d) `11

Print Minute(d) `45

Print Second(d) `34

Print WeekDay(d)`1

Weekday 提供了一组内部常量，vbSunday代表1，直到 vbSaturday代表7。

Now 函数可返回今天的日期及时间。如：

Private Sub Form_Click()

Dim d As Date

d = Now

Print d

End Sub

灵活地应用以上的函数，可以大大地简化你的程序。例如想计算10000秒等于几小时几分几秒可写为：

Private Sub Form_Click()