Moin,
ich brüte gerade über folgender Aufgabe: Ich muss den -12 Arbeitstag im Monat ermitteln, bisher kann ich den letzten Arbeitstag rausfinden. Für diesen Monat wäre das bspw. der 15.11.
Hat jemand eine Idee?
Gruß
Lico
ich brüte gerade über folgender Aufgabe: Ich muss den -12 Arbeitstag im Monat ermitteln, bisher kann ich den letzten Arbeitstag rausfinden. Für diesen Monat wäre das bspw. der 15.11.
Hat jemand eine Idee?
Visual Basic-Quellcode
- Sub letzten_Werktag_ermitteln()
- 'letzten Werktag im Monat ermitteln
- 'davon abgezogen werden immer 12 Arbeitstage, daraus ergibt sich das letzte Abgabedatum im Monat
- Dim d As Date
- Dim i As Long
- d = Now
- 'letzte Tag im Monat
- d = DateSerial(Year(d), Month(d) + 1, 0)
- For i = 1 To 3
- 'prüfen ob letzte Tag im Monat Sa/So
- If Weekday(d) = 1 Or Weekday(d) = 7 Then
- 'wenn ja, ein Tag davor
- d = DateSerial(Year(d), Month(d) + 1, 0) - i
- Else
- Exit For
- End If
- Next i
- MsgBox d & " " & Format(Weekday(d), "dddd"), , _
- "letzter Werktag in diesem Monat ist"
- End Sub
Gruß
Lico