Tipp 2.12 - Vorheriger Arbeitstag

Wie ermittel ich den vorherigen Arbeitstag?

Mit dieser Funktion können Sie den vorherigen Arbeitstag ermitteln. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Beispiel:

Option Explicit
 
Public Function PriorWeekday( _
                dtDate As Date) _
                As Date
  '// -----------------------------------------------------
  '// Methode:   | Ermittelt den vorherigen Arbeitstag
  '//            | eines beliebigen Datum
  '// -----------------------------------------------------
  '// Parameter: | dtDate - Prüfdatum
  '// -----------------------------------------------------
  '// Rückgabe:  | Der vorherige Arbeitstag als Datumswert
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  Dim dtHelp As Date
  dtHelp = CDate(dtDate) - 1
  While Weekday(dtHelp) = vbSaturday Or _
      Weekday(dtHelp) = vbSunday
    dtHelp = dtHelp - 1
  Wend
  PriorWeekday = dtHelp
 
End Function


Zurück Tipp 2.11 - Nächster Arbeitstag | Inhalt | Tipp 2.13 - Erster Tag in der Woche Weiter