Dim horanot As Double
If B4XPages.MainPage.kvs.GetDefault("hour_1", "08:00").As(String).Length > 1 Then
horanot = Starter.kvs.GetDefault("hour_1", "08:00").As(String).SubString2(0,2)
End If
Dim t As Long
t = FindNextTime(Array As Double(horanot,12,18))