 Lieferdatum
unter Berücksichtigen von Wochenenden errechnen
Mit einer einfachen Funktion lässt sich das Lieferdatum einer Ware per
VBA errechnen. Das Beispiel geht davon aus, dass abhängig eines Bestelldatums
X Tage bis zur Auslieferung vergehen und der Liefertag nicht auf einen Samstag
oder Sonntag fallen darf.
| Code: |
Public Function LieferDatum(LDat As Variant, LTage As Variant)
Dim Merk As Variant
If IsNull(LDat) Or LDat = "" Or Not (IsNumeric(LTage)) Then
MsgBox "Eingabefehler!", 16, "http://www.access-home.de"
LieferDatum = ""
Else
Merk = DateAdd("d", LTage, LDat)
If WeekDay(Merk, 2) = 6 Then
Merk = DateAdd("d", LTage + 2, LDat)
ElseIf WeekDay(Merk, 2) = 7 Then
Merk = DateAdd("d", LTage + 1, LDat)
End If
End If
LieferDatum = Merk
End Function
|
Der Funktionsausruf kann beispielsweise so aussehen:
| Code: |
Ergebnis = LieferDatum("15.11.2002", 15)
|
Als Ergebnis wird das Datum "02.12.2002" zurückgegeben, da
der 31.10.2002 ein Samstag ist und der 01.12.2002 ein Sonntag ist.
Viele weitere Tipps & Tricks aus der Praxis für die Praxis finden
Sie auf unserer AP-Access-Tools
 Vol.1
| | | | 
 |
Auf der AP-Access-Tools Vol.1 finden Sie weitere 320
Tipps & Tricks sowie 250 Access-Beispiel/Anwendungen mit offenen Quellcode!
Die Access-Tools-CD mit über 400 MByte Inhalt - für Access- und VB-Entwickler
256 Access-Beispiele mit offenem Code
45 Add-Ins und ActiveX-Komponenten (Freeware)
16 VB-Projekt inkl. Source
321 Tipps & Tricks für Access und VB
Plus 11 Entwicklerversionen (9 davon mit Source!)
Plus 3 Vollversionen und
Plus riesiger Datenpool
Holen Sie sich jetzt Ihre AP-Access-Tools-CD zum Superpreis von nur EUR 24,95! |
| | | |
|
| 
» Newsletter
