[Jan Eriksson]

Något att börja med...

Dim StartTimeDate As Date = DateTime.Parse("10:00")
Dim EndTimeDate As Date = DateTime.Parse("16:00")
Dim AddMinuteInteger As Integer = "30"

Dim TempTimeDate As Date

TempTimeDate = StartTimeDate

Do
ddlTime.Items.Add(TempTimeDate.ToString("HH:mm"))
TempTimeDate = DateAdd(DateInterval.Minute, AddMinuteInteger, TempTimeDate)
Loop Until TempTimeDate >= EndTimeDate