VB分秒转换问题

这样就可以了了

Private Sub IPD_Change()
miao = Val(IPD.text) * 75
h.text = miao \ 3600
m.Text = (miao - Val(h.Text) * 3600) \ 60
s.Text = (miao - Val(h.Text) * 3600) Mod 60
End Sub

Private Sub Text1_Change()
xx = Text1.Text *75 '得到原始数据
Text3.Text = Int(xx / 60)' 计算分
Text4.Text = xx - Text3.Text * 60 '通过分得到秒
Text2.Text = Int(Text3.Text / 60) '计算小时
Text3.Text = Text3.Text - Text2.Text * 60 '通过小时得到分
End Sub

还有根本不需要判断是不是>60
小于60，除60取整肯定是0，不需要用IF判断。多余代码。浪费

这么改：
Dim T As Long
Private Sub IPS_Change()
T = Val(IPS.Text) * 75
If Val(IPS) / 60 > 0 Then
H = Int(Val(IPS) / 60)
Else
H = 0
End If
If T / 60 > 0 And T / 60 < 60 Then
M = Int(T / 60)
Else
M = 0
End If
S = T Mod 60
End Sub