万年暦プログラム

プログラムの概要

テキストボックスで指定した年月日より、オプションボタンで 日付が選択されて居る場合は、何年、又は、何箇月、又は、何 日、又は、何週後、又は、前の日付を求める。 亦、オプションボタンで日数が選択されて居る場合は、更にテ キストボックスで指定した年月日迄の日数を求める。 オプションボタンの選択状況に依り、入力欄の有効・無効を切 り替えると共に、コマンドボタンのキャプションを書き換えて、 操作性を高める様にして居る。

暦カルキュレータ

ＶＢ⑧ □ 単純変数の宣言（Dim） □ 標準コントロールの利用（Frame、Label、Text、Combo、Command、Option） □ プロパティの値の取得と設定（Value、ListIndex、Caption、SelStart、selLength 等） □ イベントの利用（Load、Click、GotFocus） □ メソッドの利用（SetFocus） □ ステートメントの利用（Unload、End、Exit Sub） □ 組込関数（型変換）の利用（CInt、CLng） □ 組込関数（日付時間）の利用（Year、Month、Day、DateSerial、DateAdd、DateDiff、Date） □ 組込関数（評価）の利用（IsNumeric、IsDate） □ 演算子（代入演算子、算術演算子、結合演算子）

□ 制御構造構文（条件分岐 If ～ Then、Select case、ループ処理 For ～ Next） 今回の課題項目

□ Ｉｆ文に依る条件分岐（If ～ Then … Else … End If）

□ Ｆｏｒ文に依るループ処理（For counter=start To end : … : Next counter） □ Ｓｅｌｅｃｔ Ｃａｓｅ文に依るループ処理（Select Case: Case … : End Select） □ 評価関数（IsNumeric、Isate） □ 日付と時間を扱う関数（Year、Month、Day、DateSerial、DateAdd、DateDiff） 今回の重点項目 □ 日付計算だけで無く、時間計算も出来る様に拡張する。 □ テキストボックスへの入力に於けるマンマシンインターフェイスを改良する。 今回の応用項目

■ オブジェクト・プロパティ一覧 ■ コントロールの種類 プロパティ プロパティの設定値 フォーム オブジェクト名 Form1 Caption 暦カルキュレータ フレーム１ オブジェクト名 fraDate Caption 日付計算 フレーム２ オブジェクト名 fraParam Caption 空白 ラベル１ オブジェクト名 lblDate Index ０～７（コントロール配列） Caption 西暦、年、月、日より、西暦、年、月、日迄 Font ＭＳ明朝,太字,１２ テキストボックス オブジェクト名 txtDate Index ０～６（コントロール配列） Alignment 1-右揃え Text、Font 空白（ＭＳ明朝,太字,１４） IMEMode 3-オフ固定 コンボボックス オブジェクト名 cmbDate List、Font 年、月、日、週（ＭＳ明朝,太字,１４） フレーム３ オブジェクト名 fraBeforeAfter Caption 空白 オプション１ オブジェクト名 optMethod Index ０～１（コントロール配列） caption 日付、日数 ラベル２ オプション３ フレーム１ コマンドボタン１ オプション１ コントロール配列 （０～１） コンボボックス コマンドボタン２ フレーム２ ラベル１ コントロール配列 （０～７） テキスト コントロール配列 （０～６） フレーム３ オプション２

コントロールの種類 プロパティ プロパティの設定値 オプション２ オブジェクト名 optBefore Caption 前 オプション３ オブジェクト名 optAfter Caption 後 Value True コマンドボタン１ オブジェクト名 cmdDate Caption 、Font を求める（ＭＳ明朝,太字,１２） コマンドボタン２ オブジェクト名 cmdFinish Caption 、Font 終了（ＭＳ明朝,太字,１２） ラベル２ オブジェクト名 lblDateDisp Appearance 0-フラット BorderStyle 1-実線 Caption、Font 空白（ＭＳ明朝,太字,２０） フレーム 他のコントロールをグループ化するコントロール。通常、チェックボックスやオプションボ タンと共に使用し、フレーム自体は、特定の機能を持たない。 ラベル テキストを表示するコントロール。此のテキストは、ユーザーが直接入力したり変更したり する事は出来ない。 テキストボックス テキストの入力や表示を行うコントロール。此のテキストは、ユーザーが直接入力したり変 更したりする事が出来る。 コンボボックス 選択肢の一覧を表示するコントロール。此の一覧より値を選択する事と、テキストボックス に直接値を入力する事が出来る。 コマンドボタン ユーザーが選択したコマンド（命令）や操作を実行するコントロール。ＯＫボタンや実行ボ タン等、処理の開始や中断・終了の合図に用いられ、最も良く利用されるコントロールです。 オプションボタン 複数の選択肢の中から１個だけを選択するコントロール。チェックボックスとは異なり、１ 個のグループの中で選択出来るオプションボタンは１個だけで有る。 表示を整形する便利な関数 １．Format ：指定した書式に変換する関数 ２．StrConv ：文字列を変換する関数 Format 関数の詳細は、オンラインヘルプで当該関数を表示し、関連項目、例えば、『数値表示書式 指定文字』や『文字列表示書式指定文字』や『日付／時刻表示書式指定文字』を参照して下さい。 亦、StrConv 関数では、『大文字／小文字』や『全角／半角』や『ひらがな／カタカナ』等の相互 変換を行う事が出来る。

■ プログラムリスト ■

Option Explicit

Private Opt(3) As String

' フォームが読み込まれた時の処理 Private Sub Form_Load( ) Dim I As Integer

txtDate(0).Text = Year(Date) txtDate(1).Text = Month(Date) txtDate(2).Text = Day(Date)

Opt(0) = "yyyy": Opt(1) = "m": Opt(2) = "d": Opt(3) = "ww"

For I = 4 To 7: lblDate(I).Enabled = False: Next I For I = 4 To 6: txtDate(I).Enabled = False: Next I End Sub

' オプションボタン（日付・日数）がクリックされた時の処理 Private Sub optMethod_Click(Index As Integer)

Dim I As Integer

Select Case Index Case 0

txtDate(3).Enabled = True cmbDate.Enabled = True optBefore.Enabled = True optAfter.Enabled = True

For I = 4 To 7: lblDate(I).Enabled = False: Next I For I = 4 To 6: txtDate(I).Enabled = False: Next I cmdDate.Caption = "の日付を求める" Case 1 txtDate(3).Enabled = False cmbDate.Enabled = False optBefore.Enabled = False optAfter.Enabled = False

For I = 4 To 7: lblDate(I).Enabled = True: Next I For I = 4 To 6: txtDate(I).Enabled = True: Next I cmdDate.Caption = "の日数を求める"

End Select End Sub

' テキストボックスがフォーカスを得た時の処理 Private Sub txtDate_GotFocus(Index As Integer) txtDate(Index).SelStart = 0 txtDate(Index).SelLength = Len(txtDate(Index).Text) End Sub 此処で宣言した変数は同じ フォーム内の総てのサブプ ロシージャで値の参照と設 定を行う事が出来る。 此処で宣言した変数は宣言 したサブプロシージャ内で しか値の参照と設定を行う 事が出来ない。 此のループ処理ではカウン ターＩの値を４から７に１ ずつ変化させて、Ｎｅｘｔ迄 の処理を繰り返し行う。 現在の日付Date から年月日 を夫々れ Year 関数、Month 関数、day 関数で取得し、テ キストボックスに設定。 オプションボタンで日付が 選択されて居る場合の設定 を行う。 オプションボタンで日数が 選択されて居る場合の設定 を行う。 テキストボックスがフォー カスを持った時、テキストボ ックス内の総ての文字列を 選択状態に仕て居る。此れに 依り、既に入力されて居る文 字列を消去せずに、新しい文 字列を入力する事が出来る。

' コマンドボタン（終了）がクリックされた時の処理 Private Sub cmdFinish_Click( )

Unload Me: End End Sub

' コマンドボタンがクリックされた時の処理 Private Sub cmdDate_Click( )

Dim Y As Integer, M As Integer, D As Integer Dim T1 As Date, T2 As Date

Dim X As Long, S As String

' 起算日を求める

Y = CInt(txtDate(0).Text) M = CInt(txtDate(1).Text) D = CInt(txtDate(2).Text)

If Not IsDate(Str$(Y) & "/" & Str$(M) & "/" & Str$(D)) Then Exit Sub

End If

T1 = DateSerial(Y, M, D)

If optMethod(0).Value = True Then ' 指定した日数を加算した日付を求める If IsNumeric(txtDate(3).Text) Then X = CLng(txtDate(3).Text) If optBefore.Value = True Then X = X * (-1)

End If Else

txtDate(3).SetFocus: Exit Sub End If

If cmbDate.ListIndex < 0 Then cmbDate.SetFocus: Exit Sub Else

S = Opt(cmbDate.ListIndex) End If

lblDateDisp.Caption = Format(DateAdd(S, X, T1), "yyyy 年 mm 月 dd 日") Else

' 日付の時間間隔を求める Y = CInt(txtDate(4).Text) M = CInt(txtDate(5).Text) D = CInt(txtDate(6).Text)

If Not IsDate(Str$(Y) & "/" & Str$(M) & "/" & Str$(D)) Then Exit Sub End If T2 = DateSerial(Y, M, D) lblDateDisp.Caption = Format(DateDiff("d", T1, T2), "#####日") End If End Sub アプリケーションを終了す る場合、正しくプログラムを メモリから消去して終了す る事が望ましい。 書式を指定した形式に変換 するには、Format 関数を使 用すると便利である。 此処で宣言した変数は宣言 したサブプロシージャ内で しか値の参照と設定を行う 事が出来ない。 此の様に、カンマで区切り複 数の変数を１行で宣言する 事も出来る。 IsDate 関数は、引数で与えら れた文字列が日付と仕て評 価出来るかを調べる。 猶、夫々れのテキストボック スの入力値が数値と仕て評 価出来るか IsNumeric 関数 で調べて置く事が望ましい。

Ｉｆ文に依る条件分岐 論理式の条件判断を行うステートメント 単一行形式① If 論理式 Then 論理式が真の場合の処理 単一行形式② If 論理式 Then 論理式が真の場合の処理 Else 論理式が偽の場合の処理 ブロック形式① If 論理式 Then 論理式が真の場合の処理 End If ブロック形式② If 論理式 Then 論理式が真の場合の処理 Else 論理式が偽の場合の処理 End If ブロック形式③ If 論理式１ Then 論理式１が真の場合の処理 ElseIf 論理式２ Then 論理式２が真の場合の処理 Else 論理式１と論理式２が偽の場合の処理 End If 論理式の条件に依りプログラムの実行を制御する。即ち、論理式が真（０以外）ならば Then 以下の処理が実行され、偽（０）ならばElse 以下の処理が実行される。但し、Else 節が無 い場合には、End If の次のコードが実行される。 通常、論理式（条件式）には比較式を指定するが、数値として評価出来る式で有ればどんな式でも指定 する事が出来る。論理式の値は、真（True）と偽（False）の孰れかとして評価され、数値の０は偽に ０以外の数値は真に評価される。 単一行形式は、短く簡単な条件判断を行う時に使用する。亦、ブロック形式は、単一行形式の構文に比 べ、より構造化された柔軟な記述が出来、コードの読み易さや保守性が向上し、デバッグも行い易く成 る。 ブロック形式かどうかを判断する場合、Then の後に何が続くかが調べらる。Then と同じ行の後ろの部 分にコメント以外の記述が有ると、単一行形式として扱われる。

Else 節と ElseIf 節はどちらも必要に応じて定義する。亦、ブロック形式では、ElseIf 節は幾つ指定し ても構わない。但し、Else 節の後ろには ElseIf 節を指定する事は出来ない。亦、１つの条件式の値に 依り、複数の処理の孰れかを実行させるには、Select Case ステートメントの方が適して居る。 機 能 書 式 解 説 論理式 真の場合の処理 偽の場合の処理 真（True） 偽（False）

Ｓｅｌｅｃｔ文に依る条件分岐 評価式の値に従い、複数のステートメントブロックの中の孰れかを実行するステートメント Select Case 評価式 Case 該当式１ 評価式が該当式１に該当する場合の処理 Case 該当式２ 評価式が該当式２に該当する場合の処理 … Case Else 上記孰れの該当式にも該当しない場合の処理 End Select 評価式の値に従い、複数のステートメントブロックの中の孰れかを実行する。Select 文では 評価式が１回だけ評価され、其の値と各Case 節の値が比較され、一致した場合、其の Case 節に対応するステートメントブロックが実行される。 該当式には、１個以上の値リストを指定する。複数の値を指定する場合には、値をカンマ（，）で区切 る。亦、キーワードIs と To を使用する事も出来る。 評価式が複数の該当式と一致した場合には、最初に一致したCase 節のステートメントブロックが実行 される。亦、孰れの該当式とも一致しない場合は、Else Case 節（省略可能）が実行される。 Ｆｏｒ文に依るループ処理 指定した回数だけ一連の処理を行うステートメント For カウンター変数 = 初期値 To 終了値 Step 増分 一連の処理 Next カウンター変数

For…Next ステートメントは、For ステートメントから Next ステートメントの間に記述さ れた一連の処理を、指定した回数だけ繰り返し（ループ）実行する。 Step 節は省略する事が出来、此の場合、増分はプラス１と看做される。亦、増分は、負の値を指定する 事も出来る。 For…Next ステートメントのループは、下記の順序で実行される。 １．カウンター変数に初期値が設定される。 ２．カウンター変数と終了値の値を比較し、カウンター変数の値が終了値より大きい場合は、ループ 内の処理は実行されずに、ループが終了する（増分が負の値の場合は、カウンター変数が終了値 より小さいかどうかが判断される）。 ３．ループ内の処理を実行する。 ４．カウンター変数に増分を加算する（Step 節を省略した場合は、１が加算される）。 ５．ステップ２から４を繰り返す。 Exit For ステートメントを使用すると、ループから強制的に抜け出す事が出来る。 機 能 書 式 解 説 機 能 書 式 解 説

Ｙｅａｒ関数に依る年の取得 日付の中から年だけを取得して返す関数 Year(引数) 引数で与えられた日付から年の部分を取り出す。 引数には、日付を表す値、数式、文字列式等を指定し、省略する事は出来ない。 Ｍｏｎｔｈ関数に依る月の取得 日付の中から月だけを取得して返す関数 Month(引数) 引数で与えられた日付から月の部分を取り出す（１～１２の範囲内の整数）。 引数には、日付を表す値、数式、文字列式等を指定し、省略する事は出来ない。 Ｄａｙ関数に依る日の取得 日付の中から日だけを取得して返す関数 Day(引数) 引数で与えられた日付から日の部分を取り出す（１～３１の範囲内の整数）。 引数には、日付を表す値、数式、文字列式等を指定し、省略する事は出来ない。 ＤａｔｅＳｅｒｉａｌ関数に依る日付の取得 数値を日付に変換して返す関数 DateSerial(引数１, 引数２, 引数３) 引数で指定した年、月、日に対応する日付を得る。個々に入力された値から日付を作成する 時に使用する。 引数１には、年を表す値（０～９９の範囲、又は４桁の整数値）を指定し、省略する事は出来ない。 引数２には、月を表す値（１～１２の範囲の整数値）を指定し、省略する事は出来ない。 引数３には、日を表す値（１～３１の範囲の整数値）を指定し、省略する事は出来ない。 機 能 書 式 解 説 機 能 書 式 解 説 機 能 書 式 解 説 機 能 書 式 解 説

ＤａｔｅＡｄｄ関数に依る時間の加算 指定された時間間隔を加算した日付を返す関数 DateAdd(引数１,引数２,引数３) DateAdd 関数を使用すると、或る日付に対して指定した時間間隔を、加えたり引いたりする 事が出来る。 引数１には、追加する時間間隔を表す文字列式を指定し、省略する事は出来ない。 引数２には、追加する時間間隔の数を表す数式を指定し、省略する事は出来ない。 引数３には、時間間隔を追加する日付を指定し、省略する事は出来ない。 引数１では、下記の設定値が使用出来る。 年（”yyyy”）、四半期（”q”）、月（”m”）、日（”d”） 週（”ww”）、時（”h”）、分（”n”）、秒（”s”） 引数２では、将来の日時を取得するには正の数を指定し、過去の日時を取得するには負の数を指定する。 DateAdd の戻り値の書式は、引数３に指定する日付の書式では無く、『コントロール パネル』の設定に 依り決まる。 ＤａｔｅＤｉｆｆ関数に依る時間の間隔 ２つの指定した日付の時間間隔を返す関数 DateDiff(引数１,引数２,引数３,引数４,引数５) DateDiff 関数を使用すると、指定した時間単位で２つの日付の時間間隔を調べる事が出来る。 例えば、２つの日付の間の日数や、現在から年末迄の週の数等を求める事が出来る。 引数１には、時間間隔を計算する為の時間単位を表す文字列式を指定し、省略する事は出来ない。 引数２には、時間間隔を計算する基と成る日付１を指定し、省略する事は出来ない。 引数３には、時間間隔を計算する基と成る日付２を指定し、省略する事は出来ない。 引数４には、週の始まりの曜日を表す定数を指定し、省略する事が出来る。 引数５には、年度の第１週を表す定数を指定し、省略する事が出来る。 引数１では、DateAdd 関数の引数１と同じ設定値が使用出来る。 日付２よりも時間的に後の日付を日付１に指定すると、DateDiff 関数は負の数を返す。 Ｄａｔｅ関数に依る日付の取得 現在のシステムの日付を返す関数 Date 現在のシステム日付を取得する。引数は無い。 機 能 書 式 解 説 機 能 書 式 解 説 機 能 書 式 解 説

ＩｓＮｕｍｅｒｉｃ関数に依る数値評価 式が数値として評価出来るか何うかを調べ、結果をブール型で返す関数 IsNumeric(引数) 引数で指定した式が数値として評価出来れば真（True）を、出来なければ偽（False）を返 す。猶、引数が日付式の場合は偽を返す。 引数には、数式、又は、文字列式を含むバリアント型の式を指定し、省略する事は出来ない。 ＩｓＤａｔｅ関数に依る日付評価 式が日付として評価出来るか何うかを調べ、結果をブール型で返す関数 Is Date(引数) 引数で指定した式が日付で有る場合、又は、其の式が有効な日付として認識出来る場合には 真（True）を返し、変換出来ない場合は偽（false）を返す。 引数には、日付や時刻として認識出来る日付式、又は、文字列式を指定し、省略する事は出来ない。 Microsoft Windows で有効な日付の範囲は、西暦１００年１月１日から西暦９９９９年１２月３１日迄 で有る。此の範囲は、オペレーティングシステム（ＯＳ）に依り異なる 其他の日付と時刻を扱う関数 １．DateValue ：文字列を日付に変換する関数 ２．DatePart ：日付の指定した部分を取得する関数 ３．Weekday ：指定した日付が何曜日かを取得する関数 ４．TimeValue ：文字列を時刻に変換する関数 ５．TimeSerial ：数値を時刻に変換する関数 ６．Hour ：時刻から時を取得する関数 ７．Minute ：時刻から分を取得する関数 ８．Second ：時刻から秒を取得する関数 算術演算子 比較演算子 論理演算子 １．＾ 冪乗 １．＝ 等しい １．Ｎｏｔ 否定 ２．－ 負数 ２．＜＞ 等しくない ２．Ａｎｄ 論理積 ３．＊、／ 乗算と除算 ３．＜ より小さい ３．Ｏｒ 論理和 ４．￥ 整数除算 ４．＞ より大きい ４．Ｘｏｒ 排他的論理和 ５．Ｍｏｄ 剰余 ５．＜＝ 以下 ５．Ｅｑｖ 同値 ６．＋、－ 加算と減算 ６．＞＝ 以上 ６．Ｉｍｐ 包合 算術演算子と論理演算子では、複数の演算子が使用されて居る場合には、頭に付けた番号の順序で 演算が行われる（上に書かれて居る演算子程優先順位が高い）。 機 能 書 式 解 説 機 能 書 式