title image


Smiley Re: Anzahl von tagen im Monat errechnen
so habs schon alleine geschafft ;-)



Dim Datum1 As Date

Dim zahl As Byte

Dim Msg

zahl = InputBox("Geben Sie eine Monatszahl ein")

Datum1 = CDate("1." & zahl & ".2005")

Msg = "Letzer tag des Monats: " & DateAdd("d", -1, DateAdd("m", 1, Datum1))

MsgBox Msg

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: