Wat dacht je hier van. Het kan precieser, maar voor een visuele weergave zou dit kunnen goed genoeg zijn:
Delphi Code:
function DisplayDateDiff(d1,d2:TDateTime);
var
dd:integer;
begin
dd:=Trunc(d1)-Trunc(d2);
if dd=0 then Result:='vandaag' else
if dd<0 then
if dd=-1 then Result:='gisteren' else
if dd>-6 then Result:=Format('%d dagen geleden',[-dd]) else
if dd>-62 then Result:=Format('%d weken geleden',[-dd div 7]) else
if dd>-365 then Result:=Format('%d maanden geleden',[-dd*2 div 61]) else
Result:=Format('%d jaar geleden',[-dd div 365])
else
if dd=1 then Result:='morgen' else
if dd<6 then Result:=Format('over %d dagen',[dd]) else
if dd<62 then Result:=Format('over %d weken',[dd div 7]) else
if dd<365 then Result:=Format('over %d maand',[dd*2 div 61]) else
Result:=Format('over % jaar',[dd div 365]);
end;
Bookmarks