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, "####/##/##")) Then
difTime = DateDiff("d", Now, Format(outTime, "####/##/##")) '判斷相差多少天
End If