① 用VB 編寫一個程序,將一個時間(以秒為單位)轉換成「幾小時幾分幾秒」等形式
private sub command1_click
dim s as long
s = text1
text2 = s \ 3600 & ":" & (s Mod 3600) \ 60 & ":" & (s Mod 3600) Mod 60
end sub
轉換出的形式是 h:m:s
② 用VB實現：輸入以秒為單位表示的時間，編寫程序，將其換算成幾日幾時幾分幾秒
Option Explicit
Dim Times As String, T As Long
Dim D As Integer, H As Integer, M As Integer, S As Integer
Private Sub Form_Load()
Form1.AutoRedraw = True
Times = InputBox("輸入時間(單位:秒)", "輸入", 123456)
T = Val(Times)
S = T Mod 60
T = T \ 60
M = T Mod 60
T = T \ 60
H = T Mod 24
D = T \ 24
Print Val(Times); "秒="; D; "日"; H; "時"; M; "分"; S; "秒"
End Sub
③ vb時間轉換
使用 format 函數：
如：
Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#
' 以系統設置的長時間格式返回當前系統時間。
MyStr = Format(Time, "Long Time")
' 以系統設置的長日期格式返回當前系統日期。
MyStr = Format(Date, "Long Date")
MyStr = Format(MyTime, "h:m:s") ' 返回 "17:4:23"。
MyStr = Format(MyTime, "hh:mm:ss AMPM") ' 返回 "05:04:23 PM"。
MyStr = Format(MyDate, "dddd, mmm d yyyy") ' 返回 "Wednesday, Jan 27 1993"。
' 如果沒有指定格式，則返回字元串。
MyStr = Format(23) ' 返回 "23"。
' 用戶自定義的格式。
MyStr = Format(5459.4, "##,##0。00") ' 返回 "5,459.40"。
MyStr = Format(334。9, "###0。00") ' 返回 "334.90"。
MyStr = Format(5, "0。00%") ' 返回 "500.00%"。
MyStr = Format("HELLO", "<") ' 返回 "hello"。