title image


Smiley Re: Kalenderwochen Berechnung!
Hi!So geht's:Function Kalenderwoche(dat As String) As IntegerDatum = Datevalue(dat)Datum_Year = Cstr(Year(Datum))Start_Year = Datevalue(("01.01." + Datum_Year))a = Weekday (Start_Year)If a = 6 Or a = 7 Or a = 1 Then KW = Format(Datum, "ww") - 1Else KW = Format(Datum, "ww")End If' In KW steht jetzt die KalenderwocheKalenderwoche = Cint(KW)End Function

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: