Dim zeit1 As Date
        Dim zeit2 As Date
        Dim zeitdiff As TimeSpan
        zeit1 = Now
        zeit2 = Now.AddMinutes(300)
        zeitdiff = DateTime.op_Subtraction(zeit1, zeit2)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist