VB求解~設(shè)計(jì)一個(gè)代碼將秒數(shù)轉(zhuǎn)化為小時(shí)，分鐘~

Dim Bb(1 To 3) As String 'bb1-3對(duì)應(yīng)時(shí)、分、秒

創(chuàng)新互聯(lián)建站是一家專業(yè)提供白塔企業(yè)網(wǎng)站建設(shè),專注與網(wǎng)站設(shè)計(jì)制作、做網(wǎng)站、H5頁面制作、小程序制作等業(yè)務(wù)。10年已為白塔眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)的建站公司優(yōu)惠進(jìn)行中。

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)) " 時(shí) " Val(Bb(2)) " 分 " Val(Bb(3)) " 秒"

看下是你說的不？

若不對(duì)請(qǐng)指正。謝謝

VB.NET 如何將秒轉(zhuǎn)化為小時(shí)，分鐘，秒的形式

Public Class Form1

Private Function ZToFSAll(ByVal ZT As Long) As String

'全存樣式

'從天，時(shí)，分，秒整合為秒

Dim T， S， F， M As Integer '天，時(shí)，分，秒

Dim T1， S1 As Integer '天，時(shí)，分，秒

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 "小時(shí)" F "分鐘" M1 "秒"

End Function

Private Function ZToFSQS(ByVal ZT As Long) As String

'缺損樣式

'從秒分解為天，時(shí)，分，秒

Dim T， S， F， M As Integer '天，時(shí)，分，秒

Dim T1， S1 As Integer '天，時(shí)，分，秒

Dim T2， S2， F2， M2 As String '天，時(shí)，分，秒

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 "小時(shí)"

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

'從天，時(shí)，分，秒分解為秒

'T， S， F， M分別為天，時(shí)，分，秒

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小時(shí)32分鐘34秒

TextBox1.Text = FSoZT(6， 0， 32， 34) '值為:520354

End Sub。

VB中毫秒轉(zhuǎn)成XX小時(shí)XX分鐘XX秒，怎么做？

1、首先定義 a 為整型，j 為邏輯型，t 為字符串型。變量a是數(shù)值型的，表達(dá)式11 +11是數(shù)值型的，相加即可算出結(jié)果。

2、變量a是數(shù)值型的，表達(dá)式“11”+“11”是字符串型，需要把計(jì)算的表達(dá)式的值轉(zhuǎn)換為數(shù)值型。

3、變量是數(shù)值型，表達(dá)式True是邏輯型的，所以要把表達(dá)式的值轉(zhuǎn)換為數(shù)值型。（邏輯值True轉(zhuǎn)換為-1，邏輯值False轉(zhuǎn)換為0）。

4、變量j是邏輯型，表達(dá)式 11+11 是數(shù)值型的，需要將表達(dá)式轉(zhuǎn)換為邏輯型。（0轉(zhuǎn)換為False,其他的轉(zhuǎn)換為True）。

5、變量t是字符串型，表達(dá)式 ?False 也是邏輯型，把表達(dá)式轉(zhuǎn)換為字符串型。

6、變量t是字符串型，表達(dá)式“11”+“aj”也是字符串型，結(jié)果是 ?11aj 。

7、如果表達(dá)式的值不可以轉(zhuǎn)換為變量類型，則會(huì)提示“類型不匹配”。

VB.net 中如何將秒數(shù)轉(zhuǎn)換為分鐘或者小時(shí)

假設(shè)你得到 N 秒

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

小時(shí) hour = N / 3600;

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

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

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

vb.net怎樣把小時(shí)、分鐘、秒轉(zhuǎn)換為分鐘

這個(gè)簡(jiǎn)單。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就是最后 的結(jié)果。語法你自己修改下。純手打。

求教VB編程中秒轉(zhuǎn)化時(shí) 分 秒 的代碼

一個(gè)語句全部完成

Dim S As Long, OutP As String

'定義S為輸入的秒，OutP是輸出的結(jié)果

OutP = S\3600 "小時(shí)" (S Mod 3600) \ 60 "分" S Mod 60 "秒"

比如：

S=3700,OutP為“1小時(shí)1分40秒”

S=70050,OutP為“19小時(shí)27分30秒”