投稿日 | : 2004/05/20(Thu) 14:59 |
投稿者 | : nobu |
Eメール | : |
URL | : |
タイトル | : Re: 日付の計算 |
> Dim Date as string <== エラーになるでしょう
> Date = "20040520" <== エラーになるでしょう
Dim Date_org As String
Dim Date_new As String
Date_org = "20040520"
Date_org = Format(Date_org, "####/##/##")
Date_new = DateAdd("d", 1, Date_org)
Debug.Print Date_new