'Integer-Variablen für Zeitpunkt-Komponenten
Dim year, month, day As Integer 
Dim hour, minute, second, millisecond As Integer
 
'Ziel-Zeitpunkt
year = 2021 : month = 6 : day = 13
hour = 14 : minute = 45 : second = 12 : millisecond = 123
 
Dim shutdown_datetime As New DateTime _
(year, month, day, hour, minute, second, millisecond)
 
'Zeitintervall von jetzt bis zum Zielzeitpunkt (Einheit: Minuten)
Dim minutes_until_shutdown As Double = _
(shutdown_datetime - Now).TotalMinutes 'Dezimalbruch, gesamtes Intervall