Question

求教VB编程中秒转化时 分 秒 的代码

求教VB编程中秒转化时 分 秒 的代码

我是新手 试了半天还是弄不出来

谢谢了

Answer 1

一个语句全部完成

Dim S As Long, OutP As String
'定义S为输入的秒，OutP是输出的结果

OutP = S\3600 & "小时" & (S Mod 3600) \ 60 & "分" & S Mod 60 & "秒"

比如：
S=3700,OutP为“1小时1分40秒”
S=70050,OutP为“19小时27分30秒”

Answer 2

\'声明IPS
\'声明S
\'声明M
\'声明H
\'把要转换的秒数放在IPS

IPS = 1234

If IPS / 3600 > 0 Then
H = Int(IPS / 3600)
Else
H = 0
End If

If IPS / 60 > 0 And IPS / 60 < 60 Then
M = Int(IPS / 60)
Else
M = 0
End If

S = IPS Mod 60

\'转换后的\"秒\"存在变量S里面
\'转换后的\"分\"存在变量M里面
\'转换后的\"时\"存在变量H里面
-----------------------------------
*只要你学好数学+多动脑,就不是很难.*

Answer 3

dim fen,miao as long
fen=minute(time)
miao=second(time)

Answer 4

可以用函数：
Hour
Minute
Second