システム日付の変更について (ID:106528)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 間違えて送信をしてしましました。 1,2に関しては、OKです。3,4は以下の様にしたいのですが、 Dim month_buf As Date Dim date_buf As Date Dim Today As String month_buf = Format(Now, "mm") 'システム日付取得 date_buf = Format(Now, "dd") Today = "テキストボックス入力" & "/" & "月" & "/" & "日" Date = Today Todayへの合成ですが、どのようにすればよいか御教示願います。