title image


Smiley Re: Funktion in VBA erstellen
Da könntest du recht haben, das war wohl nix.



AAABBBEEERRRR:





Function DateDiff(ByVal Datum1 As Date, ByVal Datum2 As Date)

Dim Dtg, Dtk As Date

Dim Yr, MnG, MnK As Integer

If Datum1 >= Datum2 Then

Dtg = Datum1

Dtk = Datum2

Else

Dtg = Datum2

Dtk = Datum1

End If

If Month(Dtg) = Month(Dtk) Then

MnG = 0

MnK = 0

Yr = (Year(Dtg) - Year(Dtk)) * 12

ElseIf Month(Dtg) > Month(Dtk) Then

MnG = Month(Dtg)

MnK = Month(Dtk)

Yr = (Year(Dtg) - Year(Dtk) - 1) * 12

Else

MnG = Month(Dtg)

MnK = 12 - Month(Dtk)

Yr = (Year(Dtg) - Year(Dtk) - 1) * 12

End If

DateDiff = MnG + MnK + Yr

End Function



in deiner Textbox, in der gerechnet werden soll schreibst du dann =Datediff(Textbox1,Textbox2)



dann sollte es funzen.



Den ersten Beitrag vergiss einfach.



Grüße



LXus



P.S. Der Code ist gestest und funzt bei mir einwandfrei.












Grüße

 

LXus

 

Win7 x64

Office 2013 x64



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: