Imports System

​

Public Module TimeUntil

    Sub Main()

        Dim dtTest = Date.Parse("12/5/19 00:01")

​

        For i = dtTest.Hour To 24 - 1

            FindNextInterval(dtTest)

            dtTest = dtTest.AddHours(1)

        Next

    End Sub

​

    Private Sub FindNextInterval(ByVal fromDT As Date)

        Dim currHr = fromDT.Hour

        Dim interval As Date

​

        If (currHr + 1) Mod 2 = 0 Then

            interval = New DateTime(fromDT.Year, fromDT.Month, fromDT.Day, fromDT.Hour + 1, 0, 0)

        Else

            interval = New DateTime(fromDT.Year, fromDT.Month, fromDT.Day, fromDT.Hour + 2, 0, 0)

        End If

​

        Dim op = String.Format("When the current time is {0}, The next event will occur at {1} ", fromDT.ToString("dd/MM/yy hh:mm"), interval.ToString("dd/MM/yy hh:mm"))

        Console.WriteLine(op)

    End Sub

End Module

​