German DateTime Berechnungsproblem

[strupp01]

Ich Habe ein Datum "18.03.17" und eine Uhrzeit "12:00:00" und möchte dazu "02:30:00" addieren, damit als Ergebnis Datum 18.03.17 und Uhrzeit 14:30:00 heraus kommt.

Irgendwie bekomme ich das nicht hin. Kann mir jemand auf die Sprünge helfen ?

Dim Test, Test1, Test2, Test3 As Long
Dim Test10 As String

DateTime.DateFormat="dd.MM.yy"

Test1 = DateTime.DateParse("18.03.17")
DateTime.TimeFormat = "HH:mm:ss"
Test2 = DateTime.TimeParse("12:00:00")
Test3 = DateTime.TimeParse("02:30:00")

Test10 = DateTime.Date(Test1+Test2+Test3)


So geht es jedenfalls nicht.

 

[DonManfred]

    DateTime.DateFormat="dd.MM.yy"
    DateTime.TimeFormat = "HH:mm:ss"

    Dim Test1 As Long = DateTime.DateTimeParse("18.03.17","12:00:00")
   
    Dim p As Period
    p.Hours = 2
    p.Minutes = 30
   
    Dim Test2 As Long = DateUtils.AddPeriod(Test1,p)
    Log(DateTime.Date(Test2)&" "&DateTime.Time(Test2))

 

[strupp01]

Danke, so gehts.

 

[DonManfred]

Natürlich geht´s auch in die andere Richtung

    Dim p2 As Period
    p2.Hours = -2
    p2.Minutes = -30
   
    Dim Test3 As Long = DateUtils.AddPeriod(Test1,p2)
    Log(DateTime.Date(Test3)&" "&DateTime.Time(Test3))