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.NET中关于时间操作的问题。

1、时间可以直接比较大小，定义两个时间的变量，直接使用或者即可判断，跟数据大小判断是一样的

2、时间差值，可以使用DateDiff函数进行

3、比如取一个现在的时间now，使用Year、month、day、hour、min、sec函数可以取到now的年份、月、日、小时、分钟和秒

VB求解~设计一个代码将秒数转化为小时，分钟~

Dim Bb(1 To 3) As String 'bb1-3对应时、分、秒

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)) " 秒"

看下是你说的不？

若不对请指正。谢谢

VB.net 中如何将秒数转换为分钟或者小时

假设你得到 N 秒

那么，一个小时就是 3600 秒，一分钟就是 60 秒，我们就可以这样子分割出来 ：

小时 hour = N / 3600;

分钟 minute = ( N - ( hour * 3600 ) ) / 60;

秒 second = N - ( hour * 3600 + minute * 60 );

然后自己按照 hour : minute : second 的格式打印出来就行了 。

怎样把VB中timer（计时器控件）的单位MS转换成别的单位，比如毫秒转换成分钟？

Dim i As Long '新的计时器变量Private Sub Form_Load()

Timer1.Interval = 1000

Timer1.Enabled = True

End SubPrivate Sub Timer1_Timer()

i = i + 1 '计时器按一秒累加一次

If i 60 Then Exit Sub '如果不够一分钟 则不执行下面的过程 60 单位是秒 当然可以改成 3600 一个小时

i = 0 '当够一分钟了 计时器归0重新计算

MsgBox "一分钟到了" '需要执行的代码

'......................

'......................End Sub

vb.net怎样把小时、分钟、秒转换为分钟

这个简单。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.net秒转分种 vb把秒转换成时分秒
文章路径：http://sczitong.cn/article/hgohdi.html