Office: (Office 2003) Datumsfunktion

BIZ · 9. März 2007

\@Ruedi:
Sieht gut aus!

Lanz Rudolf · 10. März 2007

Hallo
Brauchst Du noch die berüksichtigung der Feiertage ??
Da mus ich aber zuest einmal bei TommyK rumstöbern da ich die Deutschen Feiertage nicht kenne oder Du musst mir sagen welche für Dich wichtig sind
natürlich ohne Oster Weinachten Neujahr di sind ia bei uns gleich.

FW · 10. März 2007

\@Ruedi: ich denke, dass Dein Algorithmus verstanden wurde und von jedem entsprechend an weitere Sondertage angepasst werden kann:
Code:

Function DatPWerkt(Pdat As Date, Ppt As Integer) As Date
'Aufruf: DatPWerkt("01.03.2007",10)
Dim ftwd As Byte
Dim inWt As Integer
Dim inWe As Integer
Dim inI As Integer
Dim xdat As Date
inWt = 0
inWe = 0
inI = 0
Do Until inWt >= Ppt
' Wenn der 1.Tag(start Tag) auch gezält werden muss inI vor dem Loop erhöhen
inI = inI + 1
xdat = DateAdd("d", inI, Pdat)
ftwd = Weekday(xdat)
If (ftwd = vbSunday) Or (ftwd = vbSaturday) Or IsSonstEinFeiertag(ftwd) Then
inWe = inWe + 1
Else
inWt = inWt + 1
End If
Loop
DatPWerkt = DateAdd("d", (inWt + inWe), Pdat)
Debug.Print "Gegenprüfung:"; AnzArbeitstage(Pdat, DatPWerkt) 'S. #6
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Funktion IsSonstEinFeiertag sieht dann womöglich so aus:
Code:

Public Function IsSonstEinFeiertag(ByVal Datum As Date) As Boolean
Select Case Int(Datum)
Case DateSerial(Year(Datum), 1, 1) ' Neujahr
IsSonstEinFeiertag = True
'
'weitere Feiertage
'
Case DateSerial(Year(Datum), 12, 25) ' 1. Weihnachtstag
IsSonstEinFeiertag = True
Case DateSerial(Year(Datum), 12, 26) ' 2. Weihnachtstag
IsSonstEinFeiertag = True
Case Else
IsSonstEinFeiertag = False
End Select
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Solche intellektuelle Eigenleistung traue ich dann schon den meißten Teilnehmern hier zu, aber die Lorbeeren für das Lösen des Grundproblems gebühren natürlich Dir...

Lanz Rudolf · 11. März 2007

Hallo
@FW
konnte es mir nicht verkneifen und habe ein Beispiel mit einer Feiertag-Tabelle
erstellt

Office: (Office 2003) Datumsfunktion

Datumsfunktion

Datumsfunktion

Datumsfunktion

Datumsfunktion - Similar Threads - Datumsfunktion

Tage des Monats einer Buchung berechnen

Auswählen der richtigen Datumsfunktion

Video: auswählen und Verwenden einer Datumsfunktion

Frage zur Datumsfunktion (VBA)

Zellen färben mit Datumsfunktion

Serienbrief und Datumsfunktionen