求助各位大侠,急用!!! VB 中浮点类型怎样显示为时间格式(100分)

在VB程序中书写如下:
Dim ti As Long ''定义为长整形
Dim h Asdo
uble ''定义为浮点形
h = Now ''取系统时间 h=37976.3775810185
ti = h * 1000 ''进行类型转换
Label1.Caption = Format((ti / 10000) / (24 * 60 * 60#), "hh:mm:ss")
为什么显示的时间总是 01:03:17

在VB程序中书写如下:
Dim ti As Long ''定义为长整形
Dim h Asdo
uble ''定义为浮点形
h = Now ''取系统时间 h=37976.3775810185
ti = Int(h) <<--这样试试
Label1.Caption = Format((ti / 10000) / (24 * 60 * 60#), "hh:mm:ss")
为什么显示的时间总是 01:03:17

其实你说的并没有解决，取整和“/”的效果是一样的，没有用！！