当ブログに掲載しているサンプルは、すべて利用者の自己責任という形でお願いします。
ただし、明らかな不具合がある場合、ご連絡いただければ、訂正記事を出します。
また、こちらのサンプルは、別のサイト等への公開、転載は一切禁止しています。
どうしてもと言う場合は、筆者にあらかじめご連絡ください。

テクてく Lotus 技術者 Slack に参加しよう!

2008年11月28日金曜日

条件分岐

条件分岐のサンプルです。
真か偽かだけの条件分岐であれば、If関数を利用するかと思いますが、
複数の条件が存在する場合にはIf関数では分かりづらくなってしまいます。
このような場合、Select Case関数を利用します。

サンプルは、現在の月を取得して、それを日本語で表示するものです。

ところで・・・
Select Caseの条件式は数値であるように記述していますが、どうも数値でなくても良いようです。
ヘルプを見ても、「条件の値と比較するための値を表す式」とあるだけで、データ型は指定されていないのです。
ただし、文字列にすると、完全一致の場合は正常に動作しますが、範囲指定の場合は動きが怪しいので、やはりヘルプの例にあるように、数値で判断する方が良いでしょう。

Sub Click(Source As Button)
    '一つの条件に対し、複数の選択肢がある場合には次のようにする。
    Select Case Month(Today)
    Case 1:
        Messagebox "今日は一月です。" , 0, "結果"
    Case 2:
        Messagebox "今日は二月です。" , 0, "結果"
    Case 3:
        Messagebox "今日は三月です。" , 0, "結果"
    Case 4:
        Messagebox "今日は四月です。" , 0, "結果"
    Case 5:
        Messagebox "今日は五月です。" , 0, "結果"
    Case 6:
        Messagebox "今日は六月です。" , 0, "結果"
    Case 7:
        Messagebox "今日は七月です。" , 0, "結果"
    Case 8:
        Messagebox "今日は八月です。" , 0, "結果"
    Case 9:
        Messagebox "今日は九月です。" , 0, "結果"
    Case 10:
        Messagebox "今日は十月です。" , 0, "結果"
    Case 11:
        Messagebox "今日は十一月です。" , 0, "結果"
    Case 12:
        Messagebox "今日は十二月です。" , 0, "結果"
    Case Else:
        Messagebox "今日は何月なんですか!?" , 0, "結果"
    End Select
End Sub




Lotus Notes/Domino カスタマイズとセキュリティ強化 - 株式会社エフ

0 件のコメント: