Halloj. Jag försöker få ett program att fatta att om klockan är mellan 06:00 och 15:00 (Mån-Fre) så ska en sak göras och om klockan är innan 06:00 eller efter 15:00 så ska den göra något annat. Jag har gjort enligt nedan.

        Dim someHour As Integer

        someHour = Hour(Date.Now.TimeOfDay.ToString)


        Select Case Date.Now.DayOfWeek
            Case 1, 2, 3, 4, 5

                If someHour < 15 Then
                    MessageBox.Show("För sent för idag" & vbCrLf & someHour)
                Else
                    MessageBox.Show("Än finns tid" & vbCrLf & someHour)
                End If

            Case 6

            Case 7

            Case Else
                MessageBox.Show("Odefinerat fel", "Felmeddelande", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error)
        End Select

Du får troligen inte ut rätt timme. Använd istället medlemsfunktioner och properties i själva Date objektet istället för gamla funktioner.

Testa om denna lilla modifiering fungerar.

        Dim someHour As Integer

        someHour = Now.Hour

        Select Case Now.DayOfWeek
            Case 1, 2, 3, 4, 5

                If someHour < 15 Then
                    MessageBox.Show("För sent för idag" & vbCrLf & someHour)
                Else
                    MessageBox.Show("Än finns tid" & vbCrLf & someHour)
                End If

            Case 6

            Case 7

            Case Else
                MessageBox.Show("Odefinerat fel", "Felmeddelande", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error)
        End Select

Tack. Eller så slutar jag spela basket med min hjärna och inser att

if someHour > 06 and somehour < 15 then

Innebär ju att det är grönt här om klockan är mindre än 15

inte tvärtom..


:(


Men tack för hjälpen.