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

名前

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

本文 上記ロジックでほとんどできているようですが、あと一息。 日付の月・日の部分（例えば４／３なら”４”と”３”）を 格納する変数はDate型ではなく文字列型でいいとおもいます。 で、 Dim month_buf As String Dim date_buf As String Dim Today As String month_buf = Format(Now, "mm") 'システム日付取得 date_buf = Format(Now, "dd") Today = "テキストボックス入力" & "/" & month_buf & "/" & date_buf Date = Today というかんじになればできると思いますよ。 あとは年入力のテキストがちゃんとした値でなければDate文でエラー がでるはずなので、そのチェックは必要だと思います。