VB.net 中如何將秒數轉換為分鐘或者小時

假設你得到 N 秒

創新互聯專注于那曲企業網站建設,成都響應式網站建設公司,電子商務商城網站建設。那曲網站建設公司,為那曲等地區提供建站服務。全流程定制開發，專業設計，全程項目跟蹤，創新互聯專業和態度為您提供的服務

那么，一個小時就是 3600 秒，一分鐘就是 60 秒，我們就可以這樣子分割出來 ：

小時 hour = N / 3600;

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

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

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

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 如何將秒轉化為小時，分鐘，秒的形式

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求解~設計一個代碼將秒數轉化為小時，分鐘~

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中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中在文本框輸入秒數,以小時,分,秒形式顯示在運行時如何操作？

Private Sub Command1_Click()

s = CLng(InputBox("請輸入秒鐘數："))

s1 = s

h = s \ 3600

s = s Mod 3600

m = s \ 60

s = s Mod 60

MsgBox (s1 "秒=" h "小時" m "分" s "秒")

End Sub

本文名稱：vb.net秒化分鐘 vb時分秒轉換
文章來源：http://www.yijiale78.com/article4/hgodie.html

成都網站建設公司_創新互聯，為您提供品牌網站建設、微信公眾號、網站收錄、面包屑導航、網站導航、網站排名

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯