| |
・テキストボックスにて年月日の年を表示。(例、2008年)
・コンボボックスにて、月を表示。(1月〜12月)
上記の結果を、コマンドボタンに表示させたい。
前回のアドバイスでフォーム読み込み時のプログラム作成を終えました。
下記のものは、2008年5月のカレンダーを表示するプログラムです。
・予め年を手入力したテキストを用意。
・コンボボックスにて1月を選択した時に1月のカレンダーをコマンドボタンに。
他の月を選択した際にはその月のカレンダーを。
テキストが2007年、コンボボックスが5月だったら、そのカレンダーになるようにしたいと考えています。
どなたかお知恵を拝借出来ればと思ってます。 宜しくお願いします。
Option Compare Database
>Option Explicit
>
>Private Sub Form_Load()
>
> Call MakeCalender(2008, 5)
>
>End Sub
>
>
>Sub MakeCalender(CurrentYear As Long, CurrentMonth As Long)
>Dim i As Long
>Dim First_Day As Long '初日が何番目のコントロールか
>Dim Last_Day As Long '末日が何番目のコントロールか
>
> First_Day = Weekday(DateSerial(CurrentYear, CurrentMonth, 1))
> Last_Day = DateDiff("d", DateSerial(CurrentYear, CurrentMonth, 1), _
> DateSerial(CurrentYear, CurrentMonth + 1, 0)) + First_Day
>
>'初日が入るまでは空白を代入
> For i = 1 To First_Day - 1
> Me.Controls("C" & i).Caption = ""
> Next i
>
>'初日から末日までは日付を代入
> For i = First_Day To Last_Day
> Me.Controls("C" & i).Caption = i - First_Day + 1
> Next i
>
>'末日が入るまで空白を代入
> For i = Last_Day + 1 To 42
> Me.Controls("C" & i).Caption = ""
> Next i
>
>End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
- 08/5/13(火) 8:49 -
