Dim Bb(1 To 3) As String 'bb1-3对应时、分、秒
创新互联建站是一家专业提供白塔企业网站建设,专注与网站设计制作、做网站、H5页面制作、小程序制作等业务。10年已为白塔众多企业、政府机构等服务。创新互联专业的建站公司优惠进行中。
Bb(1) = Val(Text1.Text) \ 3600
Bb(2) = Val(Text1.Text) \ 60
Bb(3) = Val(Text1.Text) - Val(Bb(2)) * 60
If Bb(2) = 60 Then Bb(2) = Bb(2) - 60 * Bb(1)
Label1.Caption = Val(Bb(1)) " 时 " Val(Bb(2)) " 分 " Val(Bb(3)) " 秒"
看下是你说的不？
若不对请指正。谢谢
Public Class Form1
Private Function ZToFSAll(ByVal ZT As Long) As String
'全存样式
'从天，时，分，秒整合为秒
Dim T， S， F， M As Integer '天，时，分，秒
Dim T1， S1 As Integer '天，时，分，秒
Dim M1 As String
T = ZT \ 86400
T1 = ZT Mod 86400
S = T1 \ 3600
S1 = T1 Mod 3600
F = S1 \ 60
M = S1 Mod 60
If M 10 Then
M1 = "0" M
Else
M1 = M
End If
ZToFSAll = T "天" S "小时" F "分钟" M1 "秒"
End Function
Private Function ZToFSQS(ByVal ZT As Long) As String
'缺损样式
'从秒分解为天，时，分，秒
Dim T， S， F， M As Integer '天，时，分，秒
Dim T1， S1 As Integer '天，时，分，秒
Dim T2， S2， F2， M2 As String '天，时，分，秒
T = ZT \ 86400
T1 = ZT Mod 86400
S = T1 \ 3600
S1 = T1 Mod 3600
F = S1 \ 60
M = S1 Mod 60
If T = 0 Then
T2 = ""
Else
T2 = T "天"
End If
If S = 0 Then
S2 = ""
Else
S2 = S "小时"
End If
If F = 0 Then
F2 = ""
Else
F2 = F "分钟"
End If
M2 = M "秒"
ZToFSQS = T2 S2 F2 M2
End Function
Private Function FSoZT(ByVal T As Integer， ByVal S As Int16， ByVal F As Int16， ByVal M As Int16) As Long
'从天，时，分，秒分解为秒
'T， S， F， M分别为天，时，分，秒
FSoZT = T * 86400 + S * 3600 + F * 60 + M
End Function
Private Sub Button1_Click(ByVal sender As System.Object， ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ZToFSQS(520354) '值为:6天32分钟34
TextBox1.Text = ZToFSAll(520354) '值为:6天0小时32分钟34秒
TextBox1.Text = FSoZT(6， 0， 32， 34) '值为:520354
End Sub。
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、如果表达式的值不可以转换为变量类型，则会提示“类型不匹配”。
假设你得到 N 秒
那么，一个小时就是 3600 秒，一分钟就是 60 秒，我们就可以这样子分割出来 ：
小时 hour = N / 3600;
分钟 minute = ( N - ( hour * 3600 ) ) / 60;
秒 second = N - ( hour * 3600 + minute * 60 );
然后自己按照 hour : minute : second 的格式打印出来就行了 。
这个简单。dim time1 datetime ="1:20:30"dim h as int =time1.tostring("hh")dim M as int =time1.tostring("MM")dim S as int=time1.tostring("ss")dim SUMfen as double=h*60+M+S/60SUMfen就是最后 的结果。语法你自己修改下。纯手打。
一个语句全部完成
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秒”