If - Else- End if

Har du prøvet at "25-04-99" istedet for "25 apr 1999" etc. ???

tdaugaard har ret i at det muligvis er fordi VB ikke kan finde ud af at konvertere dine datoer til dato variable. Så prøv at læg datoerne ind med formatet dd-mm-yyyy.

Prøv lige efter de fire datotilskrivninger at indsætte debug udskrivninger af variablerne:

Debug.Print booketstarttid
Debug.Print booketsluttid
Debug.Print nystarttid
Debug.Print nysluttid

Og check at de forventede datoer udskrives i udtryksvinduet (Ctrl-G).
Prøv evt at benytte CDate() funktionen i stedet.

Din "måle-kode" ser ud til at være korrekt.

Philip

Din kode kan faktisk fylder RET lidt:

-----------------------------------------------------
Dim booketstarttid As Date, booketsluttid As Date
Dim nystarttid As Date, nysluttid As Date

bookstart = "18-04-1999"
bookslut = "25-05-1999"

nystart = "14-04-1999"
nyslut = "26-04-1999"

Select Case nystarttid >= booketstarttid
    Case True:  ok = nystarttid >= booketsluttid
    Case False: ok = nysluttid <= booketsluttid
End Select

Select Case ok
    Case True:  MsgBox "ledigt"
    Case False: MsgBox "optaget"
End Select
-----------------------------------------------------

At sige

If vblabla < yaddayadda Then
    ok = True
Else
    ok = False
End If

er det samme som

ok = vblabla < yaddayadda

da "vblabla < yaddayadda" er en evaluering der vil returnere enten True eller False behøver du ikke selv evaluere den med en If..Else..Then blok.