假設(shè)你得到 N 秒
成都創(chuàng)新互聯(lián)從2013年創(chuàng)立,先為善右等服務(wù)建站,善右等地企業(yè),進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為善右企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。
那么,一個小時就是 3600 秒,一分鐘就是 60 秒,我們就可以這樣子分割出來 :
小時 hour = N / 3600;
分鐘 minute = ( N - ( hour * 3600 ) ) / 60;
秒 second = N - ( hour * 3600 + minute * 60 );
然后自己按照 hour : minute : second 的格式打印出來就行了 。
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把數(shù)值轉(zhuǎn)化為時間格式:
VB點(diǎn)虐 中 取系統(tǒng)時間
Dim datestr As String = ""
datestr = Format(Now(), "yyyy/MM/dd H:mm:ss ffff")
用戶定義的日期/時間格式(Format 函數(shù))
轉(zhuǎn)化代碼:
Dim t As Integer, t1 As Integer, t2 As Integer, s As String
Dim tim As Date
Dim i As Integer, j As Integer
Private Sub Command1_Click()
s = InputBox("分鐘數(shù):", "輸入", 67)
If s = "" Then Exit Sub
t = Val(s)
If t = 0 Then Exit Sub
t1 = t \ 60
t2 = t Mod 60
s = t1 ":" t2
tim = Format(s, "hh:mm:ss")
Text1.Text = tim
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Dim tt1 As Integer, tt2 As Integer, tt3 As Integer, tt As String
tt = Text1.Text
tt1 = Val(Left(tt, Len(tt) - 6))
tt2 = Val(Mid(tt, Len(tt) - 4, 2))
tt3 = Val(Right(tt, 2))
tt3 = tt3 - 1
If tt3 0 Then tt3 = 59: tt2 = tt2 - 1
If tt2 0 Then tt2 = 59: tt1 = tt1 - 1
If tt1 0 Then Timer1.Enabled = False: Exit Sub
tt = tt1 ":" tt2 ":" tt3
tim = Format(tt, "hh:mm:ss")
Text1.Text = tim
End Sub
將時間轉(zhuǎn)換為指定的字符串格式用:Now.ToString("yyyyMMddHHmmss")就Ok了。
例如:年份用小寫yyyy(大寫不識別),大寫MM識別為月份,小寫mm識別為分鐘,日期天為大寫DD(小寫不識別),
小時大寫HH識別為24小時制,小寫hh識別為12小時制,秒用小寫ss(大寫不識別)
補(bǔ)充:Visual Basic.NET是基于微軟.NET Framework之上的面向?qū)ο蟮木幊陶Z言。
其在調(diào)試時是以解釋型語言方式運(yùn)作,而輸出為EXE程序是是以編譯型語言方式運(yùn)作。
可以看作是Visual Basic在.Net Framework平臺上的升級版本,增強(qiáng)了對面向?qū)ο蟮闹С?。大多的VB.Net程序員使用Visual Studio .Net作為IDE(integrated development environment).SharpDevelop是另一種可用的開源的IDE。
VB.Net需要在.Net Framework平臺上才能執(zhí)行。
文章標(biāo)題:vb點(diǎn)虐
轉(zhuǎn)換時間的簡單介紹
文章源于:http://muchs.cn/article32/ddcihsc.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供營銷型網(wǎng)站建設(shè)、網(wǎng)站改版、軟件開發(fā)、微信小程序、網(wǎng)頁設(shè)計(jì)公司、網(wǎng)站策劃
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)