データ編集（前ゼロ、前スペース、３桁区切り、日時、曜日）

数値を編集して画面に表示します。
マシン日時、曜日を取得し編集して画面に表示します。
COBOL
数値は仮想小数点のため、編集無しだと小数点は表示されません。
       WORKING-STORAGE SECTION.
       01 D       PIC 9(7)V99 VALUE 1234.5.
       01 D0-EDIT PIC 999999.99.
       01 D3-EDIT PIC ZZ,ZZZ.99.
       01 DS-EDIT PIC ZZZZZZ.99.
       01 Y       PIC X(6).
       01 Y-EDIT  PIC XX/XX/XX.
       01 T       PIC X(6).
       01 W       PIC 9.
       01 W-DATA  PIC N(7) VALUE '月火水木金土日'.
       PROCEDURE DIVISION.
           DISPLAY '編集無し         'D.
           MOVE D TO D0-EDIT.
           DISPLAY '前ゼロ           ' D0-EDIT.
           MOVE D TO DS-EDIT.
           DISPLAY '前スペ           ' DS-EDIT.
           MOVE D TO D3-EDIT.
           DISPLAY '前スペ３桁区切り ' D3-EDIT.
           ACCEPT Y FROM DATE.
           ACCEPT T FROM TIME.
           MOVE Y TO Y-EDIT.
           ACCEPT W FROM DAY-OF-WEEK.
           DISPLAY '日時 ' Y-EDIT
                   ' ' T(1:2) ':' T(3:2) ':' T(5:2)
                   ' ' W-DATA(W:1)
           .
           STOP RUN.

VB.NET
日時の中の編集文字
"yy/MM/dd HH:mm:ss"月(MM)は大文字、分(mm)は小文字でなければなりません。
年(yy)が２桁の時はＯＳで設定されているスライディングウィンドウの値で１９か２ｘが設定されます。
Module Module1
    Dim A As Decimal = 1234.5
    Sub Main()
        Console.WriteLine("　　　  編集無し:" & A)
        Console.WriteLine("　　　  　前ゼロ:" & Format(A, "0000000.00"))
        Console.WriteLine("　　　　  前スペ:" & (Format(A, "#######.00")).PadLeft(10))
        Console.WriteLine("前スペ３桁区切り:" & (Format(A, "###,###.00")).PadLeft(10))
        Console.WriteLine("日時２４時:" & Format(Date.Now, "yy/MM/dd HH:mm:ss dddd"))
        Console.WriteLine("日時１２時:" & Format(Date.Now, "yy/MM/dd hh:mm:ss dddd"))
    End Sub
End Module

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

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