Datumsdifferenz o. Samstage u. Sonntage

18/09/2009 - 14:35 von Hans-J.Bacher | Report spam
Hallo NG,
A8, Win XP Sp2,

Ich benötige die Differenz in Tagen aus zwei Datumsfeldern, dabei sollen in
der Berechnung nur Mo.-Fr. berücksichtigt werden.
in Voraus vielen Dank
Gruß, Hans
 

Lesen sie die antworten

#1 Bernd Gilles
18/09/2009 - 15:01 | Warnen spam
Hallo Hans,

Hans-J.Bacher schrieb:
Ich benötige die Differenz in Tagen aus zwei Datumsfeldern, dabei sollen in
der Berechnung nur Mo.-Fr. berücksichtigt werden.



Vielleicht so:

Public Function WeekdayDiff(dateFrom As Date, dateTo As Date) As Long
Dim Result As Long
Dim i As Long
For i = Val(CDbl(dateFrom)) To Val(CDbl(dateTo))
If Weekday(i, vbMonday) < vbSaturday Then Result = Result + 1
Next i
WeekdayDiff = Result
End Function


Gruß, Bernd

Access goes Subversion - http://oasis.gilles-family.de

Ähnliche fragen