热心网友
回答时间:2024-04-27 15:46
'貌似我的方法最简便
Private Function GetTimeString(HourNum As Single) As String
GetTimeString = Format(HourNum / 24, "HH时MM分SS秒")
End Function
Private Sub Form_Load()
MsgBox GetTimeString(1.25)
End Sub
收起
热心网友
回答时间:2024-04-27 15:50
Text2.Text = Int(Text1.Text)
Text3.Text = Int((Text1.Text - Text2.Text) * 60)
Text4.Text = Int(((Text1.Text - Text2.Text) * 60 - Int((Text1.Text - Text2.Text) * 60)) * 60)
其中,text1.text为输入小时处
收起
热心网友
回答时间:2024-04-27 15:53
Private Function GetTiemrStrimg(st As Single) As String
Dim str As String
Dim h As Long, m As Long, s As Long
h = Int(st)
m = Int((st - h) * 60)
s = ((st - h) * 60 - m) * 60
GetTiemrStrimg = h & "小时" & m & "分钟" & s & "秒"
End Function
复制到你的代码里,直接调用就可以
text1.text=GetTiemrStrimg(1.5)
收起
热心网友
回答时间:2024-04-27 15:50
如果用高一的知识,,貌似baiyiqnypl 的回答可以,其它都用了vb的函数。一楼的只说了思路,不够细致。
啥是 当型语句???
本文如未解决您的问题请添加抖音号:51dongshi(抖音搜索懂视),直接咨询即可。
收起