title image


Smiley Dazu braucht man eine extra Funktion,...
...in der die Datumsargumente umgedreht sind.

Im Beispiel wurden also einfach die Argumente 'argdate' und 'Date' vertauscht:

Public Function YMDbis(argdate As Date)

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

If IsNull(argdate) Or argdate < Date Then Exit Function

Ygone = DateDiff("yyyy", Date, argdate) + Int(Format(argdate, "mmdd") < Format(Date, "mmdd"))

Mgone = Int((DateDiff("m", Date, argdate) + Int(Format(argdate, "dd") < Format(Date, "dd")))) Mod 12

If Day(Date) <= Day(argdate) Then

Dgone = Format(argdate, "dd") - Format(Date, "dd")

Else

Dgone = Day(DateSerial(Year(Date), Month(Date) + 1, 0)) - Day(Date) + Day(argdate)

End If

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

YMDbis = "- " & 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"))

YMDbis = IIf(YMDbis = "- ", 0, YMDbis) 'kleine Zugabe

End Function



Beide Funktionen können dann ja in einem (Abfrage-)Feld zusammengefasst werden:

Wenn([DeinDatum] Ist Nicht Null; Wenn([DeinDatum] <= Datum(); YMDgone([DeinDatum]); YMDbis([DeinDatum]));Null)
Gruss aus dem (wilden) Süden ;-) Karl-Heinz

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: