Excel VBA質問箱 IV

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

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


31531 / 76732 ←次へ | 前へ→

【50450】Re:任意の年月日のX年後の表示
発言  Lindy  - 07/7/26(木) 9:57 -

引用なし
パスワード
   ▼me さん:
こんにちは

年月日がそれぞれ別に入力されているようなので
年を足してから日付にする方法もあります

Dim y As Integer, m As Integer, d As Integer
y = Val(Me.ComboBox1.Value) + ?年後
m = Val(Me.ComboBox2.Value)
d = Val(Me.ComboBox3.Value)
表示先 = Format(DateSerial(y, m, d), "yy.mm.dd")

1 hits

【50445】任意の年月日のX年後の表示 me 07/7/25(水) 23:59 質問
【50447】Re:任意の年月日のX年後の表示 マクロマン 07/7/26(木) 9:30 発言
【50448】Re:任意の年月日のX年後の表示 Jaka 07/7/26(木) 9:34 発言
【50451】Re:任意の年月日のX年後の表示 Jaka 07/7/26(木) 10:02 発言
【50469】Re:任意の年月日のX年後の表示 Lindy 07/7/26(木) 17:01 発言
【50450】Re:任意の年月日のX年後の表示 Lindy 07/7/26(木) 9:57 発言

31531 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free