EVALUATE命令

マシンから曜日を取得して画面に表示します。
COBOL
       WORKING-STORAGE SECTION.
       01 W       PIC 9.
       PROCEDURE DIVISION.
           ACCEPT W FROM DAY-OF-WEEK.
           EVALUATE TRUE
               WHEN W = 1
                   DISPLAY '月曜日' UPON CONSOLE
               WHEN W = 2
                   DISPLAY '火曜日' UPON CONSOLE
               WHEN W = 3
                   DISPLAY '水曜日' UPON CONSOLE
               WHEN W = 4
                   DISPLAY '木曜日' UPON CONSOLE
               WHEN W = 5
                   DISPLAY '金曜日' UPON CONSOLE
               WHEN W = 6
                   DISPLAY '土曜日' UPON CONSOLE
               WHEN OTHER
      *            7は日曜日です。
                   DISPLAY '日曜日' UPON CONSOLE
           END-EVALUATE.
           STOP RUN.

曜日を編集するには「:」を使って１行で書こう。

VB.NET
Module Module1
    Dim W As DayOfWeek
    Sub Main()
        Select Case W
            Case 0
                Console.WriteLine("日曜日")
            Case 1
                Console.WriteLine("月曜日")
            Case 2
                Console.WriteLine("火曜日")
            Case 3
                Console.WriteLine("水曜日")
            Case 4
                Console.WriteLine("木曜日")
            Case 5
                Console.WriteLine("金曜日")
            Case 6
                Console.WriteLine("土曜日")
        End Select
    End Sub
End Module

お役に立てましたか？
ＩＴ、プログラミングのランキングサイトはこちらです。

最新記事の自動受信登録はこちらです。