Wolfram Cloud Document

In[]:=

start=DateObject[{1971,6,28}];end=DatePlus[start,67.39*365];dayOfYear[date_]:=(DateDifference[DateObject[{First[DateList[date]],1,1}],date][[1]]);getYear[date_]:=First[DateList[date]];yearstart=getYear[start];yearend=getYear[end];today=Today;lifespanDays=First[end-start];ysize=N[GoldenRatio];g=Table[date=DatePlus[start,day];x=dayOfYear[date];y=getYear[date]-getYear[start];{If[date<today,FaceForm[{Black}],FaceForm[]],Rectangle[{x,-(ysize*y)},{x+1,-(ysize*y)-ysize}]},{day,0,lifespanDays}];

In[]:=

Graphics[{EdgeForm[{Black}],g}]

Out[]=