title image


Smiley Wirf DateDiff weg ...
Hallo Horst,



ich hab da eben noch ein wenig im Archiv gestöbert und bin da auf eine Formel von WF gestossen und habe diese "mal eben" in VBA umgeformt ...







Sub Test()

  Dim Monate As Long, Tage As Long, Jahre As Long

  Dim StartDatum As Date, EndeDatum As Date

  Dim Dienstaustritt As String, Bilanztermin As String



  StartDatum = "01.04.1987"



  Dienstaustritt = "29.02.2004"

  Bilanztermin = "31.12.2005"



  If Dienstaustritt = "" Then

    EndeDatum = Bilanztermin

  Else

    EndeDatum = Dienstaustritt

  End If



  Jahre = Year(EndeDatum) - Year(StartDatum)

  If Month(EndeDatum) < Month(StartDatum) Then

    Jahre = Jahre - 1

  End If



  Monate = Month(EndeDatum) - Month(StartDatum)

  If Month(EndeDatum) < Month(StartDatum) Then

    Monate = Monate + 12

  End If

  If Day(EndeDatum) < Day(StartDatum) Then

    Monate = Monate - 1

  End If



  Tage = Day(EndeDatum) - Day(StartDatum)

  If Day(EndeDatum) < Day(StartDatum) Then

    Tage = Tage - 30

  End If



  'Gegenprobe

  StartDatum = DateAdd("yyyy", Jahre, StartDatum)

  StartDatum = DateAdd("m", Monate, StartDatum)

  StartDatum = DateAdd("d", Tage, StartDatum)

  MsgBox StartDatum

End Sub





Code eingefügt mit Syntaxhighlighter 4.0





Schau mal, ob's passt.



Gruss




scotty

I´m an admin. If you see me laughing, you should better have a backup.
Einen Fehler machen und ihn nicht korrigieren - das erst heisst wirklich einen Fehler machen.
Konfuzius


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: