dtmNyukinYmd = DateSerial(Year(dtmShimebi),Month(dtmShimebi),Day(dtmShimebi) + 7)@H_301_1@

DateSerial： yyyy/mm/dd 格式@H_301_1@

'''''''''''''''''''''''''
Dim outTime As String
Dim difTime As Integer@H_301_1@

outTime = txtYoteiYmd(0).Text & txtYoteiYmd(1).Text & txtYoteiYmd(2).Text@H_301_1@

If IsDate(Format(outTime,"####/##/##")) ThendifTime = DateDiff("d",Now,Format(outTime,"####/##/##"))'判斷相差多少天End If@H_301_1@