vb点虐 怎样把小时、分钟、秒转换为分钟

这个简单。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就是最后 的结果。语法你自己修改下。纯手打。

公司主营业务：网站制作、网站建设、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联推出广宗免费做网站回馈大家。

VB把时分秒转换为秒

设总数a，用整除3600得出小时数b，然后再用得出的数字b乘3600得出c，用总数a减掉小时数对应的秒数c得出一个数字d，再用d整除60得出分钟数c，再用d减c乘60得出剩下的秒数e。

具体代码我就不说了什么label、text什么的你自己去弄吧，不过你要注意是整除，注意符号方向。

VB.NET 如何将秒转化为小时，分钟，秒的形式

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。

VB中毫秒转成XX小时XX分钟XX秒，怎么做？

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、如果表达式的值不可以转换为变量类型，则会提示“类型不匹配”。

网站名称：vb点虐 秒转换分钟 vb计算小时分钟秒
地址分享：http://kswjz.com/article/ddcgcpj.html