Question

VB中毫秒转成XX小时XX分钟XX秒，怎么做？

Text1输入毫秒数，按Command1后Text2输出：“XX毫秒=XX小时XX分钟XX秒”，怎么做？不能溢出！

Answer 1

1、首先定义 a 为整型，j 为逻辑型，t 为字符串型。变量a是数值型的，表达式11 +11是数值型的，相加即可算出结果。

2、变量a是数值型的，表达式“11”+“11”是字符串型，需要把计算的表达式的值转换为数值型。

3、变量是数值型，表达式True是逻辑型的，所以要把表达式的值转换为数值型。（逻辑值True转换为-1，逻辑值False转换为0）。

4、变量j是逻辑型，表达式 11+11 是数值型的，需要将表达式转换为逻辑型。（0转换为False,其他的转换为True）。

5、变量t是字符串型，表达式  False 也是逻辑型，把表达式转换为字符串型。

6、变量t是字符串型，表达式“11”+“aj”也是字符串型，结果是  11aj 。

7、如果表达式的值不可以转换为变量类型，则会提示“类型不匹配”。

Answer 2

Text1.Text = Int(Val(Text1.Text) / 360000) & "小时" & Int(((Val(Text1.Text)) Mod 360000) / 60000) & "分" & Int(((Val(Text1.Text) Mod 360000) Mod 60000) / 1000) & "秒"

Answer 3

Private Sub Command1_Click()
Dim a As Long
Dim h As Integer
a = Val(Text1.Text)
If a < 1000 Or a > 2147483647 Then
MsgBox ("请输入有较数字！1000~2147483647")
End
Else
h = Int(a / 360000)
h1 = a Mod 360000
m = Int(h1 / 60000)
m1 = h1 Mod 60000
s = Int(m1 / 1000)
End If
Text2.Text = a & "毫秒＝" & h & "小时" & m & "分" & s & "秒"End Sub

Answer 4

按时间的进制做就可以了呀