Question

怎样在VB编程中插入当前日期和时间?

先插入一个Timer控件,然后怎么来编辑?其代码是怎样的?

Answer 1

先插入一个Timer控件,将其Interval属性设置为1000,
再插入一个Label控件,其属性你自己设置,
Timer1的代码:Label1.Caption = Date & " " & Time

Answer 2

Private Sub Form_Load()
Timer1.Interval = 1000
Label1.Caption = Date & " " & Time
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Date & " " & Time
End Sub

Answer 3

Time 函数
描述:返回 Date 子类型 Variant，指示当前系统时间。
语法:Time

TimeSerial 函数
描述:返回一个 Date 子类型的 Variant，含有指定时、分、秒的时间。
语法:TimeSerial(hour, minute, second)
hour: 其值为从 0 (12:00 A.M.) 到 23 (11:00 P.M.) 的数值或数值表达式。
minute: 任意数值表达式。
second: 任意数值表达式。
说明:要指定一时刻，如 11:59:59，TimeSerial 的参数取值应在可接受的范围内；也就是说，小时应介于 0-23 之间，分和秒应介于 0-59 之间。但是，可以使用数值表达式为每个参数指定相对时间，这一表达式代表某时刻之前或之后的时、分或秒数。以下样例中使用了表达式代替绝对时间数。TimeSerial 函数返回中午之前六小时 (12 - 6) 十五分钟的时间 (-15)，即 5:45:00 A.M.。
TimeSerial(12 - 6, -15, 0)
当任何一个参数的取值超出可接受的范围时，它会正确地进位到下一个较大的时间单位中。例如，如果指定了 75 分钟，则这个时间被解释成一小时十五分钟。但是，如果任何一个参数值超出 -32768 到 32767 的范围，就会导致错误。如果使用三个参数直接指定的时间或通过表达式计算出的时间超出可接受的日期范围，也会导致错误。

TimeValue 函数
描述:返回包含时间的 Date 子类型的 Variant。
语法:TimeValue(time)
time 参数通常是代表从 0:00:00 (12:00:00 A.M.) 到 23:59:59 (11:59:59 P.M.) 的字符串表达式（包括 0:00:00 和 23:59:59）。不过，time 也可以是代表该范围内任何时间的表达式。如果 time 参数包含 Null，则返回 Null。
说明:可以采用 12 或 24 小时时钟格式输入时间。例如 "2:24PM" 和 "14:24" 都是有效的 time 参数。
如果 time 参数包含日期信息， TimeValue 函数并不返回日期信息。然而，如果 time 参数包含无效的日期信息，则会出现错误。