|
こんにちは。かみちゃん です。
>請求書の締日が以下のようになっており
>5日、10日、15日、20日、25日、末日
>翌月になって請求書を発行することが予想される締日は
>25日、末日かと思います。
少しよくわからないのですが、以下のような感じではできませんか?
変数dtで、指定された月の1日の日付を生成していますが、
その生成された日付がパソコンのシステム日付より後ろ(2009/12/1など)
であれば、生成された日付の1年前の日付にするという考え方ではいかがでしょうか?
Private Sub UserForm_Initialize()
Dim dt As Date
cboMonth.Value = "12月"
dt = CDate(cboMonth.Value & "1日")
If dt > Date Then
dt = DateAdd("yyyy", -1, dt)
End If
TextBox1.Value = Format(dt, "YYYY/M/D") '請求月の始日を表示
TextBox2.Value = Format(DateAdd("m", 1, dt) - 1, "YYYY/M/D") '請求月の末日を表示
End Sub
|
|