绝对英雄改造计划隐藏:求教VB编程中秒转化时 分 秒 的代码

来源：百度文库 编辑：高校问答 时间：2024/04/28 17:10:14
求教VB编程中秒转化时 分 秒 的代码

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

谢谢了

\'声明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里面
-----------------------------------
*只要你学好数学+多动脑,就不是很难.*

一个语句全部完成

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秒”

可以用函数：
Hour
Minute
Second

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

求教VB编程中秒转化时 分 秒 的代码 急！！Excel中，如何将输入的秒数直接转化为分？ 10秒后自动关闭 VB代码 把**.****度化成**度**分**秒的代码？ 0002期的游戏中,最后一个过关大奖出现在A4分钟51秒B4分52秒C4分53秒D4分54秒E4分55秒 用Excel可以将1分20秒转化成秒吗? 《求教》vb的通信编程 谁可以提供计秒的代码?? 600分：ASP页面中，怎么用VB代码把gb2312转化为UTF-8？ 迈迪35秒13分的视频!