Office: (Office 2003) Datum: Differenz zweier Daten (ohne Wochenenden)

galaxy · 30. Mai 2007

Hallo,

Ich habe ein Problem mit dem Vergleich von 2 Daten:

Angenommen ich habe als Startdatum 04/26/2007 und als Enddatum 05/16/2007.
Jetzt moechte ich die Differenz zwischen beiden Daten, aber WOCHENENDEN NICHT MITGEZAEHLT. Also Sonntag und Samstag sollen ignoriert warden.

Kann mir bitte jemand sagen wie ich das mit SQL (ohne VB) hinbekommen kann?

Danke schonmal im Voraus!

:)

Lanz Rudolf · 31. Mai 2007

Hallo
Da giebt es irgend wo im Forum einen Beitrag weis gerade nicht wo
Benütze einmal die Suche
wenn ich es finde werde ich es Dir Melden

BIZ · 31. Mai 2007

So in etwa
Code:

SELECT
Startdatum,
Enddatum,
DateDiff("d",Startdatum,Enddatum)-DateDiff("ww",Startdatum,Enddatum)
*2+1+(Weekday(Startdatum)=1)+(Weekday(Enddatum)=7)
AS Wochentage
FROM DeineTabelle;
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du möchtest es zwar ohne VBA hinbekommen, wenn du diese Berechnung allerdings öfter brauchst, würde ich an deiner Stelle trotzdem eine kleine Funktion schreiben
Code:

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

AnzWochenTage = DateDiff("d", datBeginn, datEnde) - DateDiff("ww", datBeginn, datEnde) _
* 2 + 1 + (Weekday(datBeginn) = 1) + (Weekday(datEnde) = 7)

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann kannst du, z.B. in Abfragen, ganz einfach die Wochentage berechnen mit
AnzWochenTage(Startdatum; Enddatum)

Lanz Rudolf · 31. Mai 2007

Hallo
Habe es gefunden: http://www.ms-office-forum.net/forum...ighlight=datum
bitte bis #19 Lesen und Bsp.DB runterladen

galaxy · 31. Mai 2007

WOW!

Danke fuer die schnellen antworten. Werde das direkt mal testen.

Danke nochmal!

galaxy · 31. Mai 2007

Hi BIZ,

Eine kurze Frage noch, koenntest du mir deine Bereuchnung noch kurz mit ein Paar worten erklaeren? Danke vielmals

BIZ · 31. Mai 2007

OK, dann will ich's mal versuchen.
Zunächst mal liefert Weekday den Wochentag als Zahl, wobei Sonntag den Wert 1 hat, Montag 2, ..., Samstag 7.

Nehmen wir mal als Beispiel an:
Startdatum: So., 03.06. (Weekday 1)
Enddatum: Sa., 16.06. (Weekday 7)

DateDiff("d",Startdatum,Enddatum) (Differenz in Tagen) ergibt 13
DateDiff("ww",Startdatum,Enddatum) * 2 (Differenz in Wochen mal 2) ergibt 1 * 2 = 2

Bis jetzt haben wir also:
DateDiff("d",Startdatum,Enddatum) - DateDiff("ww",Startdatum,Enddatum) * 2 + 1
ergibt
13 - 1*2 + 1 = 12

Am Ende wird noch
(Weekday(Startdatum)=1) + (Weekday(Enddatum)=7)
dazu addiert.
(Weekday(Startdatum)=1) ergibt -1 (True), wenn das Startdatum ein Sonntag ist, ansonsten 0 (False).
(Weekday(Enddatum)=7) ergibt -1 (True), wenn das Enddatum ein Samstag ist, ansonsten 0 (False).

In unserem Fall ergibt sich also
-1 + -1 = -2

Das Endergbenis ist also
13 - 1*2 + 1 + (-1 + -1) = 10

Alles klar?

BIZ · 1. Juni 2007

Nachtrag:

Er rechnet also folgendermaßen

Lanz Rudolf · 1. Juni 2007

Hallo
ein muster (FeiertagTest ('' kommentar)weglassen oder melde Dich dan sende ich Dir die ganze MDB:

Code:

Function DatAWerkt(p1 As Date, p2 As Date) As String
'Aufruf: ? DatAWerkt("02.04.2007",02.04.2007)
Dim ftwd As Byte
Dim inWf As Integer
Dim inWt As Integer
Dim inWe As Integer
Dim sdat As Date
Dim edat As Date
Dim xdat As Date
Dim strSQlDat As String
sdat = p1
edat = p2
If p2 < p1 Then
sdat = p2
edat = p1
End If
xdat = sdat
Call SFeierTagTab((Year(sdat))) 'Feiertage für ein Jahr Festlegen
If ((Year(sdat))) ((Year(edat))) Then Call SFeierTagTab((Year(edat)))
inWe = 0
inWt = 0
inWf = 0
Do
strSQlDat = Format(xdat, "\#yyyy\-mm\-dd\#")
ftwd = Weekday(xdat)
'' If XDLookup("FDatum", "TblFeiertage", , "(([FDatum]=" & strSQlDat & ")) and (((TblFeiertage.Arbeitstag)=No))") Then
'' inWf = inWf + 1
'' Else
If (ftwd = vbSunday) Or (ftwd = vbSaturday) Then
inWe = inWe + 1
Else
inWt = inWt + 1
End If
'' End If
xdat = DateAdd("d", 1, xdat)
Loop Until xdat >= edat
DatAWerkt = "Vom " & sdat & " Bis " & edat & ":Arbeistage =" & inWt & " :SASo =" & inWe & " :Feiertage =" & inWf
Debug.Print "Datdiff "; DateDiff("d", sdat, edat)
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Resultat: Vom 03.06.2007 Bis 16.06.2007:Arbeistage =10 :SASo =3 :Feiertage =0

BIZ · 2. Juni 2007

Also gut, wenn wir schon mal dabei sind (obwohl so etwas hier schon öfter behandelt wurde), dann habe ich auch noch ein Beispiel, das Feiertage berücksichtigt.
Über das Formular "frmFeiertage" kann man Feiertage definieren und anschließend einen Feiertagskalender (tbl_Feiertage) generieren lassen.

Claypool · 2. Juni 2007

Hallo!

Ich habe von TommyK (an dieser Stelle ein dickes Danke!) seine Datenbank als Grundlage für meine Datenbank (Verwaltung von Urlaub und Telefondiensten) verwendet http://www.access-beispiele.tommyk-w...e.php#netto_at. Das darin enthaltene Modul eignet sich hervorragend zur Berechnung von Nettoarbeitstagen und anderen Zeitraumberechnungen. Vor allem ist es flexibel, was die Feiertage der verschiedenen Bundesländer angeht.

Grüße
Ingo

ial52 · 11. November 2023

Hallo zusammen!!!
alles klar

herzlichen Dank für eure Kooperation!!!

Office: (Office 2003) Datum: Differenz zweier Daten (ohne Wochenenden)

Datum: Differenz zweier Daten (ohne Wochenenden)

Datum: Differenz zweier Daten (ohne Wochenenden)

Datum: Differenz zweier Daten (ohne Wochenenden)

Datum: Differenz zweier Daten (ohne Wochenenden)

Datum: Differenz zweier Daten (ohne Wochenenden) - Similar Threads - Datum Differenz zweier

beim Öffnen auf Blatt und Datum gehen

Datum in neuer Zeile plötzlich anderes Format

Tabellenblatt-Name: aktuelles Datum im Blattregister anzeigen

aktuelles Datum im Schnellbaustein

Kunden Bestell-Intervall

Differenz zwischen 2 Datum berechnen

Differenz zwischen Datum A und Datum B in Tage bzw Monate