Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

14019 / 76734

←次へ　｜　前へ→


	【68215】Re:文字の挿入と日付認識

UO3 - 11/2/15(火) 9:40 -


	引用なし

	パスワード

▼ゆきさん：

関数による方式がJakaさんから提示されましたのでＶＢＡ方式を。
以下はサンプル部品です。

Sub Sample()
　　Dim d1 As Date, d2 As Date, d3 As Date
　　d1 = "1983/2/01"　　　　　　　　　　　　 '基準日
　　d2 = DateAdd("yyyy", 5, d1)　　　　　　　'5年を加える
　　d3 = DateSerial(Year(d2), Month(d2), 0)　'その年月の０日、つまり前月最終日
　　MsgBox d1 & vbLf & d2 & vbLf & d3
End Sub

1 hits

▼

【68129】文字の挿入と日付認識 ゆき 11/2/3(木) 21:19