| 指定した日付の曜日を求める （０６５） | |
| Format$()関数を使用したやり方 Private Sub Command7_Click() Label7.Caption = "02/01/10 ＝ " & Format$("02/01/10", "aaaa") '結果 木曜日 End Sub その他Format$()関数にはいろんな機能がありますHLPで確認して下さい。 （日付/時刻表示書式指定文字（Format関数） ） 従来のやり方 DatePart（"設定値","日付型データ） 設定値についてはDatePartを反転表示させF1キーを押すとヘルプが表示されます。 使用例 Private Sub Command8_Click() Dim youbi As Variant '配列は０からなので空を１つセットしている youbi = Array("", "日曜日", "月曜日", "火曜日", _ "水曜日", "木曜日", "金曜日", "土曜日") Label8.Caption = "02/01/10 ＝ " & youbi(DatePart("w", "02/01/10")) '又は過去の経過日数を７で割った余りを求めて曜日をだす。 '結果 木曜日 End Sub |
|