VB数据库 问题

请教VB中的时间代码，我是菜鸟，

在内部，一个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占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() 　　Dim d As Date 　　d = TimeSerial(0, 0, 10000) 　　Print d 　　End Sub 　　 结果为2:46:40。
   　　2、与时间相关的常用控件。 　　Timer控件是一个奇特的控件。Timer 控件会在固定时间间隔中运行Timer事件。 此间隔是由Interval属性决定的，其单位为千分之一秒。
  但不要以为将其值设为0 事件就可不间断地运行了。结果恰恰相反，事件将一次也不运行。同时还要注意变 量的声明。
  如： 　　Private Sub Timer1_Timer() 　　Dim a As Integer 　　a = a ＋ 1 　　Print a 　　End Sub 　　 　　Dim a As Integer 　　Private Sub Timer1_Timer() 　　a = a ＋ 1 　　Print a 　　End Sub 。收起