VB7の日付の取り扱い

VB.NET 
    Dim d1 As Date = Now
    Dim d2 As Date = DateAdd(DateInterval.Minute, 60 / 4, d1)
    Dim d3 As Date = DateAdd(DateInterval.Minute, 60 / 1, d1)

    Const DATEFORMAT = "yyyy/MM/dd hh:mm:ss"
    Console.WriteLine("現    在の時刻は{0}", Format(d1, DATEFORMAT))
    Console.WriteLine("１５分後の時刻は{0}", Format(d2, DATEFORMAT))
    Console.WriteLine("一時間後の時刻は{0}", Format(d3, DATEFORMAT))


現    在の時刻は2004/07/15 02:32:17
１５分後の時刻は2004/07/15 02:47:17
一時間後の時刻は2004/07/15 03:32:17