datum berechnen

[Icemann1970]

Hallo zusammen. Ich suche mir schon die letzten zwei Tage einen Wolf, komme nicht weiter (auch nicht mit Dr. Google)
Ich habe ein Bericht, indem ich eine Verfolgung der Bestellvorgänge sehen möchte.
(in Kurzform)
Bestelldatum vom Techniker.... geht
Terminierung..........................geht
..... Mein Problem ist: Ich möchte gerne wissen seit wieviel Tagen die Bestellung läuft wenn z.B. noch kein Wareneingang ist. Also sobald einer der letzten Datum fehlen komme ich nicht weiter.
Das jetzt funktioniert nur wenn das erste und das letzte Datum eingetragen ist.
Mag mir da jemand weiterhelfen?

Code [Auswählen] Erweitern

Public Function CalcDays(BestellungSendenDatum As Date, TerminDispoAm As Date) As Integer


Dim iDiff As Integer
Dim i As Integer
Dim iresult As Integer
Dim dtTemp As Date

iDiff = DateDiff("d", BestellungSendenDatum, TerminDispoAm)


For i = 0 To iDiff
dtTemp = DateAdd("d", i, BestellungSendenDatum)
If Weekday(dtTemp, vbMonday) <> 6 And _
Weekday(dtTemp, vbMonday) <> 7 Then
iresult = iresult + 1
End If
Next i
CalcDays = iresult

End Function
Das Ziel ist, ich möchte wissen wo der Flow stockt um den Kreislauf von der Bestellung bis zur Terminierung zu beschleunigen.

zusätzlich natürlich ein ungebundenes Textfeld mit

Code [Auswählen] Erweitern

=CalcDays([BestellungSendenDatum];[TerminDispoAm])

[Icemann1970]

Habe es geschafft. Ob es so schön ist kann ich nicht sagen, ABER es funktioniert. Ich habe jetzt mehrere Module erstellt und dann enzelne Datum Abfragen damit durchgeführt.
Mein DUMMER Fehler war dass ich den Code nicht als Modul angelegt hatte.