Für die Ausgabe einiger Resultate verwendete ich die Funktion [VBA] print_r()

'3 Tage und 12 Stunden zum aktuellen Zeitstempel hinzuaddieren
d DateTime(now).add("P3DT12H")
<Class Module::DateTime>  (
    [timeStamp] => <Date> 12.08.2014 03:15:16
    [dateOnly] => <Date> 12.08.2014
    [timeOnly] => <Date> 03:15:16
)

d DateTime(#2014-8-8#).diff(#2014-9-1 12:00:15#)
<Class Module::DateInterval>  (
    [year] => <Integer> 0
    [month] => <Integer> 0
    [day] => <Integer> 24
    [hour] => <Integer> 12
    [minute] => <Integer> 0
    [second] => <Integer> 15
    [sign] => <Integer> 1
    [years] => <Long> 0
    [months] => <Long> 1
    [days] => <Long> 24
    [hours] => <Long> 588
    [minutes] => <Long> 35280
    [seconds] => <Long> 2116815
    [intervalSpec] => <String> 'P24DT12H15S'
    [intervalSpec2] => <String> 'P00000024T120015'
    [intervalSpec3] => <String> 'P0000-00-24T12:00:15'
)

d DateTime("20140807", "YYYYMMDD")
<Class Module::DateTime>  (
    [timeStamp] => <Date> 07.08.2014
    [dateOnly] => <Date> 07.08.2014
    [timeOnly] => <Date> 00:00:00
)

Dim d1 As DateTime
Dim d2 As DateTime
Dim di As New DateInterval
 
di.day = 15
Set d1 = DateTime()
'Den Interval dazurechnen, aber d1 nicht anapassen
Set d2 = d1.add(di, True)
 
Debug.Print d1.format("dd.mm.yyyy") '-> 08.08.2014
Debug.Print d2.format("dd.mm.yyyy") '-> 23.08.2014
 
di.day = 5
 
'Den Interval dazurechnen, dieses mal d1 ebenfalls anpassen
Set d2 = d1.add(di)
Debug.Print d1.format("dd.mm.yyyy") '-> 13.08.2014
Debug.Print d2.format("dd.mm.yyyy") '-> 13.08.2014