Function HelligdagsNavn(lngdate As Long, InclSaturdays As Boolean, _

    InclSundays As Boolean) As String

' Returnerer Sand hvis lngDate er en Dansk HelligdagsNavn/nationaldag
' (valgfri inkludering af lørdag/søndag)
' bruger funktionen Påskedag

Dim InputYear As Integer, PD As Long, OK As Boolean

    If lngdate <= 0 Then lngdate = Date
    InputYear = Year(lngdate)
    PD = Påskedag(InputYear)
      OK = True

    Select Case lngdate ' Tester nedenstående påstande mod datoen

'
' Helligedage og andre mærkedage på faste datoer
'
        Case DateSerial(InputYear, 1, 1): HelligdagsNavn = "Nytårsdag"
        Case DateSerial(InputYear, 1, 6): HelligdagsNavn = "Hellig tre Konger"
        Case DateSerial(InputYear, 2, 14): HelligdagsNavn = "Valentinsdag"
        Case DateSerial(InputYear, 6, 5): HelligdagsNavn = "Grundlovsdag & Fars dag"
        Case DateSerial(InputYear, 6, 23): HelligdagsNavn = "Sankt Hansaften"
        Case DateSerial(InputYear, 6, 24): HelligdagsNavn = "Sankt Hansdag"
        Case DateSerial(InputYear, 10, 31): HelligdagsNavn = "Halloween"
        Case DateSerial(InputYear, 11, 10): HelligdagsNavn = "Mortensaften"
        Case DateSerial(InputYear, 11, 11): HelligdagsNavn = "Mortensdag"
        Case DateSerial(InputYear, 12, 24): HelligdagsNavn = "Julaftensdag"
        Case DateSerial(InputYear, 12, 25): HelligdagsNavn = "1. Juledag"
        Case DateSerial(InputYear, 12, 26): HelligdagsNavn = "2. Juledag"
        Case DateSerial(InputYear, 12, 31): HelligdagsNavn = "Nytårsaftensdag"

'
' Helligedage og andre mærkedage på beregnet datoer
'
        Case PD - 49: HelligdagsNavn = "Fastelavn"
        Case PD - 7: HelligdagsNavn = "Palmesøndag"
        Case PD - 3: HelligdagsNavn = "Skærtorsdag"
        Case PD - 2: HelligdagsNavn = "Langfredag"

'
' minus dage efter Påskedag
'
        Case PD: HelligdagsNavn = "Påskedag"
'
' plus dage efter Påskedag

'
        Case PD + 1: HelligdagsNavn = "2. Påskedag"
        Case PD + 26: HelligdagsNavn = "Store bededag"
        Case PD + 39: HelligdagsNavn = "Kristi Himmelfartsdag"
        Case PD + 49: HelligdagsNavn = "Pinsedag"
        Case PD + 50: HelligdagsNavn = "2. Pinsedag"
        Case Else

          End Select

            OK = False

            If InclSaturdays Then ' Tester lørdage, hvis de skal medtages

                If Weekday(lngdate, vbMonday) = 6 Then

                    HelligdagsNavn = HelligdagsNavn & " Lørdag"

                End If

            End If

            If InclSundays Then ' Tester søndage, hvis de skal medtages

                If Weekday(lngdate, vbMonday) = 7 Then

                HelligdagsNavn = HelligdagsNavn & " Søndag"

                End If

          End If 

End Function

 kan man i denne i linierne 

 Case DateSerial(InputYear, 6, 24): HelligdagsNavn = "Sankt Hansdag"

ændre 6 og 24 til nogle variablere for dag og måned som en anden funktion finder dato for sommertidensstart og sommertidensslut når man kender året i denne funktion:

Function Sommertidsdato(aar As Integer, BegSlut As Integer) As Date

' Beregner sommertidsdatoerne ud fra året.

' Sommertid antages at være sidste søndag i hhv. marts og oktober (time 3).

' Syntaks: Sommertid(År,1|2), 1 for forårsdagen, 2 (eller andet) for efterårsdagen.

  Dim Dato As Date

  If BegSlut = 1 Then

    Dato = DateSerial(aar, 4, 1)

    Sommertidsdato = Dato - DatePart("w", Dato, vbMonday)

  Else

    Dato = DateSerial(aar, 11, 1)

    Sommertidsdato = Dato - DatePart("w", Dato, vbMonday)

  End If

End Function

og det samme for morsdag med denne formel:

=HVIS($G$3<D49;"";DATO($G$3;5;1+((2-(1>=UGEDAG(DATO($G$3;5;1))))*7)+(1-UGEDAG(DATO($G$3;5;1)))))

kan man det ?

Function Sommertidsdato(aar As Integer, BegSlut As Integer) As Date

' Beregner sommertidsdatoerne ud fra året.

' Sommertid antages at være sidste søndag i hhv. marts og oktober (time 3).

' Syntaks: Sommertid(År,1|2), 1 for forårsdagen, 2 (eller andet) for efterårsdagen.

  Dim Dato As Date

  If BegSlut = 1 Then

    Dato = DateSerial(aar, 4, 1)

    Sommertidsdato = Dato - DatePart("w", Dato, vbMonday)

  Else

    Dato = DateSerial(aar, 11, 1)

    Sommertidsdato = Dato - DatePart("w", Dato, vbMonday)

  End If

End Function