VB时间怎么表示？

VB时间怎么表示？

如下：
Dim str As String = DateTime.Now().ToLongTimeString()
str = str.Replace("AM", "")
str = str.Replace("PM", "")
labTime.Text = str

Private Sub Command1_Click()
a = #12/2/2007 6:47:59 PM#
MsgBox IIf(DateDiff("n", a, Now) > 0, "时间已过", "时间还未到")
End Sub

time$

Visual Basic 概念
日期和时间（针对 Visual Basic 6.0 用户）
请参见
语言筛选器： 全部 语言筛选器： 多个 语言筛选器： Visual Basic 语言筛选器： C# 语言筛选器： C++ 语言筛选器： J# 语言筛选器： JScript
Visual Basic（声明）
Visual Basic（用法）
C#
C++
J#
JScript

Visual Basic 2005 将 Date、Date$、Time 和 Time$ 函数更新为属性并将 Now 和 Timer 函数替换为属性。

Visual Basic 6.0
在 Visual Basic 6.0 中，Date 和 Time 函数以四字节 Date 的格式返回系统日期和时间。同样，Date 和 Time 语句使用 Visual Basic 6.0 格式设置系统日期和时间。

Date$ 和 Time$ 函数以 String 的格式返回系统日期和时间。

Now 和 Timer 函数指定当前日期和时间，以及自午夜以来经过的秒数。

Visual Basic 2005
Visual Basic 2005 将 Date 和 Time 替换为 Today 和 TimeOfDay 属性，后面的两种属性使用八字节公共语言运行库 (CLR) DateTime 结构。这符合 Visual Basic 2005 中的 Date 数据类型。可以使用 Today 和 TimeOfDay 设置和获取系统日期和时间。

Visual Basic 2005 将 Date$ 和 Time$ 函数替换为 DateString 和 TimeString 属性。可以使用 DateString 和 TimeString 设置和获取系统日期和时间。

Now 和 Timer 函数由同名只读属性替代。它们的调用序列保持不变。

请参见
参考
Format 函数
Today 属性
TimeOfDay 属性
Date 数据类型 (Visual Basic)
DateString 属性
TimeString 属性
Now 属性
Timer 属性

概念
Format 函数（针对 Visual Basic 6.0 用户）
编程元素支持更改总结

要提出有关“帮助”或本产品其他功能的建议或错误报告，请转到反馈站点。

呵呵 这个很简单：
在form中加入一个timer，然后粘贴如下代码，运行看效果：

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Dim t
Form1.Cls
t = Now
If t > "2007-12-2 18:47:59" Then Print "时间已过！" Else Print "时间还没到呢！"
End Sub