title image


Smiley Re: Letzter Werktag im Monat/Monatsende
Ich habe es so hinbekommen:



Ultimo(0) = DateAdd("m", 1, DateSerial(Year(start_date), Month(start_date), 1)) - 1

i = 1

Do While Ultimo(i - 1) < end_date

Ultimo(i) = DateAdd("m", 2, DateSerial(Year(Ultimo(i - 1)), Month(Ultimo(i - 1)), 1)) - 1

i = i + 1

Loop

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: