title image


Smiley Re: Nächster Wochentag
Hi !



Ach, Du meinst so'ne Funktion ! :-)))



Public Function NextWeekday(ByRef br_dteDatum As Date) As Date

Select Case Weekday(br_dteDatum)

Case 6 ' Freitag

NextWeekday = DateAdd("d", 3, br_dteDatum)

Case 7 ' Samstag

NextWeekday = DateAdd("d", 2, br_dteDatum)

Case Else ' restliche Wochentage

NextWeekday = DateAdd("d", 1, br_dteDatum)

End Select

End Function



Gruß

flipper8



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: