日付関数

COBOL
整数を日付に変換                  DATE-OF-INTEGER
グレゴリオ暦日付を整数に変換 INTEGER-OF-DATE
コンパイル日付                       WHEN-COMPILED
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A                                       PIC X(8).
       01 A-YYYYMMDD                    PIC S9(8).
       01 A-NUMBER                         PIC S9(8).
       01 B-YYYYMMDDHHMMSSVV   PIC X(16).
       PROCEDURE DIVISION.
           COMPUTE A-YYYYMMDD = FUNCTION DATE-OF-INTEGER (1) .
           MOVE FUNCTION INTEGER-OF-DATE (16010101) TO A-NUMBER.
           MOVE FUNCTION WHEN-COMPILED TO B-YYYYMMDDHHMMSSVV.
           DISPLAY "起点となる日付YYYYMMDD:" A-YYYYMMDD.
           DISPLAY "起点となる番号:" A-NUMBER.
           DISPLAY "コンパイル日付YYYYMMDDHHMMSSVV:" B-YYYYMMDDHHMMSSVV.
           STOP RUN.

起点となる日付YYYYMMDD:16010101+
起点となる番号:00000001+
コンパイル日付YYYYMMDDHHMMSSVV:2007042902123491

VB.NET

Module Module1
    Sub Main()
        Dim D As Date = Date.Parse(Now.Date) 　　'マシン日付
        Dim i1 As Integer = D.ToOADate　　　　 　　'起点日からの累積日数
        Dim D_START As Date = D.AddDays(-i1)　　'マシン日から起点日を逆算
        Dim C As String = System.IO.File.GetLastWriteTime(System.Environment.GetCommandLineArgs(0))

        Console.WriteLine("起点となる日付:" & D_START.ToString)
        Console.WriteLine("起点日からの累積日数:" & i1)
        Console.WriteLine("コンパイル日付:" & C)

    End Sub
End Module

起点となる日付:1899/12/30 0:00:00
起点日からの累積日数:39201
コンパイル日付:2005/09/23 6:56:34

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

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