Evaluere dato = Null

If IsNull(Mindato) then
...
End If

Burde fungere, men hvilken fejl får du?

Det er en rapport, hvor jeg bruger flg funktion til at afgøre, om en opgave ventede, var påbegyndt eller var afsluttet på et givet tidspunkt 'point':

Public Function DetermineStatus(ByVal point As Date, begin As Date, finish As Date)

    Dim stat As String
    point = CDate(point)
   
    If begin Is Null Then
        stat = "Venter"
    ElseIf finish Is Null Then
        If point < begin Then
            stat = "Venter"
        Else
            stat = "I gang"
        End If
    ElseIf point >= begin And point < finish Then
        stat = "I gang"
    ElseIf point >= finish Then
        stat = "Afsluttet"
    ElseIf point <= begin Then
        stat = "Venter"
    Else
        stat = "No value given..."
    End If
   
    DetermineStatus = stat
   
End Function

Se bort fra "begin Is Null", det var bare et desperat forsøg... jeg bruger IsNull(begin)...

Funktionen kommer lige igen:

Public Function DetermineStatus(ByVal point As Date, begin As Date, finish As Date)

    Dim stat As String
   
    If IsNull(begin) Then
        stat = "Venter"
    ElseIf IsNull(finish) Then
        If point < begin Then
            stat = "Venter"
        Else
            stat = "I gang"
        End If
    ElseIf point >= begin And point < finish Then
        stat = "I gang"
    ElseIf point >= finish Then
        stat = "Afsluttet"
    ElseIf point <= begin Then
        stat = "Venter"
    Else
        stat = "No value given..."
    End If
   
    DetermineStatus = stat
   
End Function

Hm, det kom til at fungere, da jeg udskiftede argumenterne med Variant's. Åbenbart må Null-værdier ikke leveres som type Date... VB er sgu noget kryptisk engang imellem...