title image


Smiley Re: Datumsdifferenz ohne Wochenende ermitteln?
Lade dir mal die Know How MDB !



Da stehen 2 Funktionen dazu drin und noch vieles mehr ;)

(z.B. Feiertage aus schalten :D )

Vorab aus der know-how.mdb :









Function DateDiffW(ByVal BegDate As Date, EndDate As Date)

'War vorher im Modul mdlDateDiffW

'PSS ID Number: Q95977

'Article last modified on 08-29-1997

'The following code provides a function, DateDiffW(), that calculates

'the number of work days between two dates:

'

'How to Use the DateDiffW() Function

'-----------------------------------

'

'Use the DateDiffW() function wherever you would use DateDiff(). Instead of

'

'   DateDiff("W",[StartDate],[EndDate])

'

'use the following:

'

'   DateDiffW([StartDate],[EndDate])

'

'NOTE: This function returns the days UP TO the ending date, not UP TO and

'INCLUDING the ending date.

'One less than AnzWochenTage



'   Anzahl Werktage (ohne Feiertage) zwischen zwei Tagen

      Const SUNDAY = 1

      Const SATURDAY = 7

      Dim NumWeeks As Integer



      If BegDate > EndDate Then

         DateDiffW = 0

      Else

         Select Case WeekDay(BegDate)

            Case SUNDAY: BegDate = BegDate + 1

            Case SATURDAY: BegDate = BegDate + 2

         End Select

         Select Case WeekDay(EndDate)

            Case SUNDAY: EndDate = EndDate - 2

            Case SATURDAY: EndDate = EndDate - 1

         End Select

         NumWeeks = DateDiff("ww", BegDate, EndDate)

         DateDiffW = NumWeeks * 5 + WeekDay(EndDate) - WeekDay(BegDate)

      End If

   End Function





Function AnzWochenTage(ByVal datBeginn As Date, ByVal datEnde As Date) As Long

'von Urs Villiger

'Anzahl der Werktage ohne Samstag und ohne Sonntag (ohne Feiertagsberücksichtigung)

  AnzWochenTage = DateDiff("d", datBeginn, datEnde) - DateDiff("ww", datBeginn, datEnde) _

  * 2 + 1 + (WeekDay(datBeginn) = 1) + (WeekDay(datEnde) = 7)

End Function







Code eingefügt mit Syntaxhighlighter 4.0







Downloadbar unter www.freeaccess.de


War das jetzt mehr Hot oder mehr Not ?

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: