Gruppe
Funktion
Problem
Wie kann ich feststellen, ob es sich bei einem vorgegebenen Datum um einen Feiertag handelt?
StandardModule: Modul1
Function LastFile(sFileA As String, sFileB As String) As String
Dim datLast As Date
datLast = FileDateTime(sFileA)
If datLast < FileDateTime(sFileB) Then
LastFile = sFileB
ElseIf datLast = FileDateTime(sFileB) Then
LastFile = "Beide Dateien gespeichert am " & FileDateTime(sFileB)
Else
LastFile = sFileA
End If
End Function