title image


Smiley Re: Funktion in VBA erstellen - mit Rundung
so würde auch gerundet werden:



Sub temp()

Dim vondat As Date, bisdat As Date

   vondat = DateSerial(2005, 1, 13)

   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)

     

    D = Day(bisdat) - Day(vondat)

    If D < -15 Then mDiff = mDiff - 1

    If D > 15 Then mDiff = mDiff + 1

End Function



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: