kontrol af dato\'er

den forstod jeg sku\' ikke lige...!

Kan du ikke lige... - du ved!

/jsc

Her er i hvert fald et bud. Har lavet en eksempel sub herunder der gør det ønskede med brug af 3 if sætninger. Jeg ved ikke hvordan du ønsker at overlap skal tælle men det kan du enten selv ændre eller vende tilbage med. Du er meget velkommen til at stille uddybende spørgsmål til koden hvis der er noget du gerne vil have ændret:

Public Sub TestOverlap()
    Dim Start_Dato, Slut_Dato As String
    Dim Ny_Start_Dato, Ny_Slut_Dato As String

    Start_Dato = \"13-06-01\"
    Slut_Dato = \"16-06-01 \"

    Ny_Start_Dato = \"14-06-01\"
    Ny_Slut_Dato = \"18-06-01\"

    If DateDiff(\"d\", Ny_Slut_Dato, Start_Dato) > 0 Then
        \'Ny dato slutter før de andre starter (ændrer til >= for at få overlap)
        MsgBox \"Ingen overlap\"
    Else
        If DateDiff(\"d\", Slut_Dato, Ny_Start_Dato) > 0 Then
            \'Ny dato starter efter de andre slutter
            MsgBox \"Ingen overlap\"
        Else
            \'En af de nye datoer overlapper eller starter inden i perioden defineret af de andre variabler. Ændrer > til >= for at overlappe.
            MsgBox \"Overlap\"
        End If
    End If
End Sub