title image


Smiley Re: Funktion in VBA erstellen
hallo Ernst,



eigentlich bietet sich die Datediff-Funktion an, allerdings rundet sie nicht, sondern bestimmt nur die vollen Monate:



Sub temp()

Dim vondat As Date, bisdat As Date



   vondat = DateSerial(2005, 1, 1)

   bisdat = DateSerial(2005, 4, 1)

   

   diff = mDiff(vondat, bisdat)

End Sub





Function mDiff(vondat As Date, bisdat As Date) As Integer

     mDiff = DateDiff("m", vondat, bisdat)

End Function





viele Grüße. Heide

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: