Datoproblem med Now, når værdien overføres til en funktion

Er der mon en ekspert der kan løse denne knude for mig.  Jeg har et problem med et funktions kald, hvor NOW giver en forkert serial værdi.

dato i dag 26092020  har en serial værdi 44100, men når den overføres til funktionen, så er værdien lngdate = 44101. hvad er årsagen til det?

funktionen returnere true / false afhængig af om det er: hverdag, weekend eller helligdag.

Sub test()
      not_wortking_day = IsHoliday(now, 1, 1)
End Sub

Function IsHoliday(LngDate As Long, InclSaturdays As Boolean, InclSundays As Boolean) As Boolean
       
    ' (optionally included Saturdays/Sundays -  boolsk værdi derfor 0 eller 1 )
   
    ' benytter funksjonen EasterSunday
   
    Dim InputYear As Integer, ES As Long, OK As Boolean
   
    If LngDate <= 0 Then LngDate = Date
   
    InputYear = Year(LngDate)
   
    ES = EasterSunday(InputYear)
   
    OK = True
   
    Select Case LngDate
       
        Case DateSerial(InputYear, 1, 1) ' 1. Nyttårsdag
   
        'Case ES - 4 ' Onsdag før påske
   
        Case ES - 3 ' Skjærtorsdag
   
        Case ES - 2 ' Langfredag
   
        Case ES ' 1. Påskedag
   
        Case ES + 1 ' 2. Påskedag
   
        Case DateSerial(InputYear, 5, 1) ' 1. mai
   
        Case DateSerial(InputYear, 5, 17) ' 17. mai
   
        Case ES + 39 ' Kristi Himmelfartsdag
   
        'Case ES + 48 ' Pinseaften
   
        Case ES + 49 ' 1. Pinsedag
   
        Case ES + 50 ' 2. Pinsedag
   
        'Case DateSerial(InputYear, 12, 24) ' Julaften
   
        Case DateSerial(InputYear, 12, 25) ' 1. Juledag
   
        Case DateSerial(InputYear, 12, 26) ' 2. Juledag
   
        'Case DateSerial(InputYear, 12, 31) ' Nytårsaften
   
        Case Else  ' tjek på lørdag / søndag
   
            OK = False
       
            If InclSaturdays Then
                If Weekday(LngDate, vbMonday) = 6 Then
                    OK = True
                End If
            End If
       
            If InclSundays Then
                If Weekday(LngDate, vbMonday) = 7 Then
                    OK = True
                End If
            End If
       
    End Select
   
    IsHoliday = OK
   
End Function


Function EasterSunday(InputYear As Integer) As Long

' Returns the date for Easter Sunday, does not depend on Excel

Dim d As Integer

d = (((255 - 11 * (InputYear Mod 19)) - 21) Mod 30) + 21

EasterSunday = DateSerial(InputYear, 3, 1) + d + (d > 48) + 6 - ((InputYear + InputYear \ 4 + d + (d > 48) + 1) Mod 7)

End Function