场面描写专题:关于VB日期的问题

来源:百度文库 编辑:神马品牌网 时间:2024/04/28 23:22:36
我想问一下好果要做成这样: 2006-6-4 19:17:00
要怎么做
就是把当前系统时间载取出来,但秒要保持00

很简单用format就行了,函数如下:

function GetNow() as string
GetNow = Format(Now, "yyyy-d-m h:m:00")
end funtion

同意楼上。

一个Label 、一个Timer(Inteval属性可以设成10000)

Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "yyyy-d-m h:m:00")
End Sub