dim stim ,etim as string
Stim=20170915102515
etim=20170915101515
如何求差多少秒
uj5u.com熱心網友回復：
DateDiff函式https://www.yiibai.com/vba/vba_datediff_function.html
uj5u.com熱心網友回復：
Dim stimStr As String, etimStr As String
Dim stim As Date, etim As Date
stimStr = "20200915102515"
etimStr = "20190916101515"
stim = CDate(Format(stimStr, "0000-00-00 00:00:00"))
etim = CDate(Format(etimStr, "0000-00-00 00:00:00"))
Debug.Print stim
Debug.Print etim
Debug.Print "秒間隔: "; DateDiff("s", stim, etim)
Debug.Print "分間隔: "; DateDiff("n", stim, etim)
Debug.Print "時間隔: "; DateDiff("h", stim, etim)
Debug.Print "日間隔: "; DateDiff("d", stim, etim)
Debug.Print "月間隔: "; DateDiff("m", stim, etim)
Debug.Print "年間隔: "; DateDiff("yyyy", stim, etim)
uj5u.com熱心網友回復：
謝謝，問題已經解決了。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/7323.html
標籤：VBA
上一篇：[求助]利用字典-合并達到條件的資料 & 其余的照樣填寫
下一篇：將vba的宏移植到vb6中