IF文

マシン日付を取得し季節を判定し画面に表示します。
COBOL
       WORKING-STORAGE SECTION.
       01 YYMMDD PIC X(6).
       PROCEDURE DIVISION.
           ACCEPT YYMMDD FROM DATE.
           IF YYMMDD(3:2) =  '12'
                          OR '01'
                          OR '02'
               DISPLAY YYMMDD(3:2) '月　季節は冬'
           ELSE IF YYMMDD(3:2) = '03'
                              OR '04'
                              OR '05'
               DISPLAY YYMMDD(3:2) '月　季節は春'
           ELSE IF YYMMDD(3:2) = '06'
                              OR '07'
                              OR '08'
               DISPLAY YYMMDD(3:2) '月　季節は夏'
           ELSE IF YYMMDD(3:2) = '09'
                              OR '10'
                              OR '11'
               DISPLAY YYMMDD(3:2) '月　季節は秋'
           END-IF
           STOP RUN.
 

VB.NET
楽をしようと思ってCOBOLのような条件式にしようとすると期待しない結果になってしまいます。
Module Module1
    Dim MM As Integer = Now.Month
    Sub Main()
        If MM = 12 _
        Or MM = 1 _
        Or MM = 2 _
        Then
            Console.WriteLine(MM & "月　季節は冬")
        ElseIf MM = 3 _
            Or MM = 4 _
            Or MM = 5 _
        Then
            Console.WriteLine(MM & "月　季節は春")
        ElseIf MM = 6 _
            Or MM = 7 _
            Or MM = 8 _
        Then
            Console.WriteLine(MM & "月　季節は夏")
        ElseIf MM = 9 _
            Or MM = 10 _
            Or MM = 11 _
        Then
            Console.WriteLine(MM & "月　季節は秋")
        End If
    End Sub
End Module

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

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