vb时间显示

显示全部楼层 · 2009-1-12 15:33:09

公司运行开始时间 2008.01.01
到现在,
要显示:公司已经运营 XX天,XX时XX分XX秒了
在VB里怎么显示?

千问 · 2009-1-12 15:33:09

添加一个Timer控件，设置Interval属性值为1000 以2008年1月1日0时0分0秒为准以下是代码 Private Sub Timer1_Timer() Cls d = DateDiff("d", #1/1/2008#, Date) Print "公司已经运营"; d; "天"; Hour(Now); "小时"; Minute(Now); "分"; Second(Now); "秒" End Sub...

千问 · 2009-1-12 15:33:09

直接用减法计算:
Dim A As Date
Dim Days As Integer
A = "2008-1-1"
Days = CDate(Format(Now, "yyyy-mm-dd")) - A
MsgBox "公司运营了" & Days & " 天 " & Format(Now, "HH") & "...

千问 · 2009-1-12 15:33:09

你在CSDN里输入now 查询啊。查询与时间日期相关的函数的用法。简单的。...