日付時刻の計算

COBOL

COBOL組み込み関数を参照して下さい。

VB.NET
2006/12/31 から現在までの日数、時分秒mm秒を計算して画面に表示します。

Module Module1
    Private DATE1 As Date = "2006/12/31"
    Private DATE2 As Date = Now
    Private decDAY As Decimal
    Private TIME1 As DateTime = "2006/12/31 23:00:00"
    Private TIME2 As DateTime = Now
    Private TIME3 As DateTime
    Private objTIME1 As TimeSpan
    Private objTIME2 As TimeSpan
    Sub Main()
        Dim strDATE1 As String = Format(DATE1, "yyyy/MM/dd HH:mm:ss")
        Dim strDATE2 As String = Format(DATE2, "yyyy/MM/dd HH:mm:ss")
        '日付の減算
        Console.WriteLine("2つの日付から日数、時間を算出")
        decDAY = DateDiff(DateInterval.Day, DATE1, DATE2)
        Console.WriteLine(strDATE2 & " - " & strDATE1 & " 日：" & decDAY)
        '日付、時分秒mm秒の減算
        objTIME1 = TIME2.Subtract(TIME1)
        '減算結果の表示
        Console.WriteLine(strDATE2 & " - " & strDATE1 & " 日：" & objTIME1.TotalDays)
        Console.WriteLine(strDATE2 & " - " & strDATE1 & " 時：" & objTIME1.TotalHours)
        Console.WriteLine(strDATE2 & " - " & strDATE1 & " 分：" & objTIME1.TotalMinutes)
        Console.WriteLine(strDATE2 & " - " & strDATE1 & " 秒：" & objTIME1.TotalSeconds)
        Console.WriteLine(strDATE2 & " - " & strDATE1 & " mm秒：" & objTIME1.TotalMilliseconds)

        Console.WriteLine("日付＋日数の算出")
        Console.WriteLine(Now & " + " & 365 & " = " & Now.AddDays(365))
        Console.WriteLine(Now & " - " & 365 & " = " & Now.AddDays(-365))
    End Sub
End Module

2つの日付から日数、時間を算出
2007/04/30 00:28:07 - 2006/12/31 00:00:00 日：120
2007/04/30 00:28:07 - 2006/12/31 00:00:00 日：119.061196740778
2007/04/30 00:28:07 - 2006/12/31 00:00:00 時：2857.46872177867
2007/04/30 00:28:07 - 2006/12/31 00:00:00 分：171448.12330672
2007/04/30 00:28:07 - 2006/12/31 00:00:00 秒：10286887.3984032
2007/04/30 00:28:07 - 2006/12/31 00:00:00 mm秒：10286887398.4032
日付＋日数の算出
2007/04/30 0:28:07 + 365 = 2008/04/29 0:28:07
2007/04/30 0:28:07 - 365 = 2006/04/30 0:28:07

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

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