dtmNyukinYmd = DateSerial(Year(dtmShimebi),Month(dtmShimebi),Day(dtmShimebi) + 7)
DateSerial： yyyy/mm/dd 格式
'''''''''''''''''''''''''
Dim outTime As String
Dim difTime As Integer
outTime = txtYoteiYmd(0).Text & txtYoteiYmd(1).Text & txtYoteiYmd(2).Text
If IsDate(Format(outTime,"####/##/##")) ThendifTime = DateDiff("d",Now,Format(outTime,"####/##/##"))'判斷相差多少天End If
原文链接：https://www.f2er.com/vb/261367.html