想在文本框1輸入：2014/12/30 08:00:00 文本框2輸入：2015/1/2 07:00:00
文本框3得到 text3.text=text2.text-text1.text
輸出結果想得到多少天，小時，分，秒
請問有方法實作沒有呢？
uj5u.com熱心網友回復：
用datediff 函式http://blog.csdn.net/poloyzhang/article/details/6999506
uj5u.com熱心網友回復：
msgbox datediff("d",date1,date2)msgbox datediff("h",date1,date2)
msgbox datediff("n",date1,date2)
msgbox datediff("s",date1,date2)
uj5u.com熱心網友回復：
Option Explicit
Private Sub Command1_Click()
Dim dt As Date
Dim s As String
dt = CDate(Text2) - CDate(Text1)
s = CInt(Fix(dt)) & "天"
s = s & DatePart("h", dt) & "小時"
s = s & DatePart("n", dt) & "分"
s = s & DatePart("s", dt) & "秒"
Text3 = s
End Sub
Private Sub Form_Load()
Text1 = "2014/12/30 08:00:00"
Text2 = "2015/1/2 07:00:00"
End Sub
Text3結果
2天23小時0分0秒
uj5u.com熱心網友回復：
樓上的正解。uj5u.com熱心網友回復：
計算部分可以簡化。最好加上錯誤處理。Private Sub Command1_Click()
Dim dt As Date
If Not IsDate(Text1) Or Not IsDate(Text2) Then
MsgBox "Bad Datatime."
Exit Sub
End If
If CDate(Text2) < CDate(Text1) Then
dt = Text1
Text1 = Text2
Text2 = dt
End If
dt = CDate(Text2) - CDate(Text1)
Text3 = CInt(Fix(dt)) & "天" & Format(dt, "H小時n分s秒")
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/88123.html
標籤：VB基礎類
上一篇：大神救命啊！想了一天了，解決不了