title image


Smiley Wowww! Noch eine Erweiterung mödlich??
Wowww!

Könnte ich das mit VBA doch etwas besser, dann könnte ich so viel einfacher machen ...



Das Teil funzt sehr gut. Allerdings schafft es keine negativen Werte (der Fall, dass argdateStart > argdateEnd). Einfach die Zeie "If IsNull ... killen hilft nicht ;)



Was dann?



Ewald dankt



Public Function YMDgone2(argdateStart As Date, argdateEnd As Date)

Dim Ygone As Integer, Mgone As Byte, Dgone As Byte

'If IsNull(argdateStart) Or argdateStart > argdateEnd Then Exit Function

Ygone = DateDiff("yyyy", argdateStart, argdateEnd) + Int(Format(argdateEnd, "mmdd") < Format(argdateStart, "mmdd"))

Mgone = Int((DateDiff("m", argdateStart, argdateEnd) + Int(Format(argdateEnd, "dd") < Format(argdateStart, "dd")))) Mod 12

If Day(argdateStart) <= Day(argdateEnd) Then

Dgone = Format(argdateEnd, "dd") - Format(argdateStart, "dd")

Else

Dgone = Day(DateSerial(Year(argdateStart), Month(argdateStart) + 1, 0)) - Day(argdateStart) + Day(argdateEnd)

End If

'Blendet Jahre/Monate/Tage aus, wenn 0:

YMDgone2 = IIf(Ygone = 0, "", Ygone & " Jahr" & IIf(Ygone = 1, " ", "e ")) _

& IIf(Mgone = 0, "", Mgone & " Monat" & IIf(Mgone = 1, " ", "e ")) _

& IIf(Dgone = 0, "", Dgone & " Tag" & IIf(Dgone = 1, " ", "e"))

End Function



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: