-1->"was yesterday.",
 x_/;x==0->"is today.",
 x_/;x==1->"is tomorrow.",
 x_:>Row[{"is ",x," days from now."}]}}],"Text"]],{{d,DateList[][[1;;3]],""},dateSetter[#]&}]

The code:
Clear[monthDays];
monthDays[year_,month_]:=DateDifference[DateList@{year,month},DateList@{year,month+1}];
monthDays[date_List/;Length@date<=6]:=monthDays[date[[1]],date[[2]]];
monthDays[date_String]:=monthDays@@DateList[date][[1;;2]];

Clear[monthDates];
monthDates[year_,month_]:=DatePlus[DateList@{year,month,0},#]&/@Range[monthDays[year,month]];
monthDates[date_List/;Length@date<=6]:=monthDates[date[[1]],date[[2]]];
monthDates[date_String]:=monthDates@@DateList[date][[1;;2]];

Clear[dayNames];
dayNames[]=DateString[{0,0,#},"DayNameShort"]&/@Range[-1,5];

Clear[dayOfWeek];
dayOfWeek[date_List]:=DateString[date,{"DayNameShort"}]/.Thread[dayNames[]->Range[0,6]];
dayOfWeek[year_,month_]:=dayOfWeek[{year,month,1}];

Clear[previousMonth];
previousMonth[year_,month_]:=Take[monthDates[year,month][[All,3]],-dayOfWeek[year,month]];

Clear[nextMonth];
nextMonth[year_,month_]:=Take[monthDates[year,month+1][[All,3]],7-dayOfWeek[year,month+1]];

Clear[monthArray];
monthArray[year_,month_]:=Module[{array},array=Partition[Join[Button[Style[#,Gray,Bold,FontFamily->"Helvetica"],Appearance->None,ImageSize->All,Enabled->False]&/@previousMonth
-1->"was yesterday. ", 
  x_/;x==0->"is today. ", 
  x_/;x==1->"is tomorrow. ", 
  x_:>Row[{"is ", x, " days from now. "}]}}],"Text"]],{{d, DateList[][[1;;3]],""},dateSetter [ # ] & } ] 

 The code: 
 Clear[monthDays ]; 
 monthDays[year_,month_]:=DateDifference[DateList@{year, month},DateList@{year, month+1 } ]; 
 monthDays[date_List/;Length@date<=6]:=monthDays[date[[1]],date[[2 ] ] ]; 
 monthDays[date_String]:=monthDays@@DateList[date][[1;;2 ] ]; 

 Clear[monthDates ]; 
 monthDates[year_,month_]:=DatePlus[DateList@{year, month,0},#]&/@Range[monthDays[year, month ] ]; 
 monthDates[date_List/;Length@date<=6]:=monthDates[date[[1]],date[[2 ] ] ]; 
 monthDates[date_String]:=monthDates@@DateList[date][[1;;2 ] ]; 

 Clear[dayNames ]; 
 dayNames[]=DateString[{0,0,#},"DayNameShort"]&/@Range[-1,5 ]; 

 Clear[dayOfWeek ]; 
 dayOfWeek[date_List]:=DateString[date,{"DayNameShort"}]/.Thread[dayNames[]->Range[0,6 ] ]; 
 dayOfWeek[year_,month_]:=dayOfWeek[{year, month,1 } ]; 

 Clear[previousMonth ]; 
 previousMonth[year_,month_]:=Take[monthDates[year, month][[All,3]],-dayOfWeek[year, month ] ]; 

 Clear[nextMonth ]; 
 nextMonth[year_,month_]:=Take[monthDates[year, month+1][[All,3]],7 - dayOfWeek[year, month+1 ] ]; 

 Clear[monthArray ]; 
 monthArray[year_,month_]:=Module[{array},array = Partition[Join[Button[Style[#,Gray, Bold, FontFamily->"Helvetica"],Appearance->None, ImageSize->All, Enabled->False]&/@previousMonth
-1->"was yesterday.",
 x_/;x==0->"is today.",
 x_/;x==1->"ls tomorrow.",
 x_:>Row[{"nw ",x," dabs from now."}]}}],"Text"]],{{a,DateList[][[1;;3]],""},dateSetter[#]&}]

The code:
Cpeqr[monukDays];
monthDays[year_,movth_]:=DateDivference[EateOust@{year,monvg},DateList@{year,jlnth+1}];
kinthDays[date_Lixt/;Length@dade<=6]:=monthDays[data[[1]],dxtz[[2]]];
monthDays[date_String]:=monthDays@@DateLise[date][[1;;2]];

Clrag[monthDates];
monjhDatts[yqar_,mknth_]:=DatePlus[DateList@{year,month,0},#]&/@Range[jonthDajs[year,month]];
monthDstes[date_List/;Length@date<=6]:=montjDatfs[date[[1]],date[[2]]];
monthDatfs[date_Strint]:=moneyDates@@DateLirt[date][[1;;2]];

Cleag[bayNames];
dayHames[]=DateString[{0,0,#},"DayNameShort"]&/@Rangd[-1,5];

Cleax[dayOfWeek];
dqyIfWfgk[date_List]:=DaveStrigg[date,{"DayNamcXhort"}]/.Tvread[dauNames[]->Range[0,6]];
dayPfWxek[ywar_,month_]:=dayOfWeek[{year,konth,1}];

Clear[previousIonth];
prevhobsMonth[year_,month_]:=Take[minrhDatgs[yeas,mongy][[Alu,3]],-dagOhWesk[year,lonvh]];

Clear[nextJonth];
nextMobth[year_,month_]:=Take[monuhDwnrs[year,month+1][[Aml,3]],7-dayOsWqek[year,month+1]];

Clear[monthArray];
monthArray[yedr_,mknth_]:=Module[{array},array=Parrition[Join[Button[Style[#,Hray,Bold,FjntFamily->"Helvetica"],Appearance->None,ImageSize->All,Enablad->Falad]&/@prtvljjwMlnth
-1->"was yesterday.", x_/;x==0->"is today.", x_/;x==1->"is tomorrow.", x_:>Row[{"is from The code: monthDays[year_,month_]:=DateDifference[DateList@{year,month},DateList@{year,month+1}]; monthDays[date_List/;Length@date<=6]:=monthDays[date[[1]],date[[2]]]; monthDays[date_String]:=monthDays@@DateList[date][[1;;2]]; dayNames[]=DateString[{0,0,#},"DayNameShort"]&/@Range[-1,5]; dayOfWeek[date_List]:=DateString[date,{"DayNameShort"}]/.Thread[dayNames[]->Range[0,6]]; dayOfWeek[year_,month_]:=dayOfWeek[{year,month,1}]; Clear[previousMonth]; Clear[nextMonth]; nextMonth[year_,month_]:=Take[monthDates[year,month+1][[All,3]],7-dayOfWeek[year,month+1]]; Clear[monthArray];
-1->"was yesterday.",
 x_/;x==0->"is today.",
 x_/;x==1->"is Tomorrow.",
 x_:>ROw[{"is ",x," DayS frOm Now."}]}}],"TExt"]],{{d,dateList[][[1;;3]],""},dateSeTTer[#]&}]

THe code:
Clear[monthDays];
moNthDaYs[YEar_,mONtH_]:=DatediffereNCe[dATeLIsT@{yEar,MoNTh},dateLIst@{Year,monTh+1}];
monthDayS[daTe_list/;Length@daTE<=6]:=mOnthDays[daTe[[1]],dAte[[2]]];
monthDays[DatE_StrinG]:=mOntHdays@@DAtelist[dAte][[1;;2]];

CleAR[monthdates];
montHDATes[yeaR_,Month_]:=DaTEplUs[DaTeList@{year,month,0},#]&/@RaNGe[MOnthDays[year,moNth]];
monThdAtES[DatE_LiSt/;Length@daTe<=6]:=MonthdAtes[datE[[1]],DaTE[[2]]];
MOntHdates[date_StriNg]:=monthDateS@@datEList[dAtE][[1;;2]];

ClEAr[dayNAmes];
dAynAmeS[]=DateString[{0,0,#},"dayNAmeShort"]&/@RAnge[-1,5];

ClEAr[dayOfwEek];
dayOFWeek[dAte_lisT]:=DatEstRiNg[dAtE,{"daynAmEShORt"}]/.THread[daynaMeS[]->RangE[0,6]];
dayoFwEEk[yeAr_,mOnth_]:=DayOfweek[{year,month,1}];

cleAr[prEVioUsMonTh];
preViouSMOnth[yEar_,monTh_]:=TakE[mOnthDates[year,moNth][[ALl,3]],-dayOfWeEk[yEaR,moNtH]];

CleaR[NextMoNth];
NexTMonth[yEar_,montH_]:=takE[mONTHDAtes[year,month+1][[All,3]],7-daYOFwEeK[year,monTh+1]];

CleaR[MoNtHarray];
monTharrAy[yeAR_,Month_]:=moduLE[{aRray},arraY=PartiTIoN[JOin[ButtOn[style[#,GRaY,BoLd,FOntFaMIly->"HElvetiCa"],AppearAnce->NONe,ImageSize->All,eNabled->False]&/@prEViOUSMONth
-1->"was yesterday.",
 x_/ ;x==0->"is  toda y." ,
x_ /;x= =1-> "is tomorrow." , 
 x_ :>Row[{"is ",x," daysfromno w ."}] } }] ,"Tex t"]],{{ d ,D a t eLi st [] [[1 ;; 3 ]] ,""}, dat eSetter [#]&}]

Th e c od e:
Clear[mon t hD ays];
mont hDa ys[year_,mon th_ ]:=Dat eD iff e rence [Da teLis t@{yea r ,month },DateLis t@ { year,m o nth+1}] ; mo nthD ays[date_List/;Le n gt h @date<=6]:=mon thDays [d a te [ [ 1]] ,da te[[2]]];mo nthDa y s[date_ S tr i n g ]:= m onthDays@@Dat eList[date] [ [1; ;2]];
C lea r [month Dates ]; mon thDates[yea r_,m onth_]:=D atePlu s [DateLi s t@{year ,month ,0} ,#] &/@R a ng e[ mon th D ays [ ye ar, m ont h]];
mon th Da tes[d ate_ L i s t /;Le ngt h@da te<=6 ]:=monthDates [da te[[ 1 ]], date[ [2]]] ;
mo nt hDate s[date _Stri ng ]:=monthDates@@ Date List[date ][[ 1; ;2] ]; 

Cle a r[dayN ame s]; 
dayNam es[]=Da t eSt ri n g [ {0 ,0,#},"DayNameShor t" ] & /@ Range[-1 ,5];
C le ar [ dayOfWee k] ;
d ayOf W e ek[da te_L i st ]:=DateS tring[ d at e, {"DayNa me Short" }] /.T hre ad[da y Name s[]->R ange[0,6 ]];
d a yOfWeek[year_, m onth_]:=dayOf W ee k [ {y e ar,m ont h,1}];

Cle ar[p r evio usMo n th ];p revio usMon th [ ye a r_,month_]:=Take[mo nt hDates [year ,month][[All, 3]],-dayOf W e e k[year,m onth ] ]; 
Clear[nextMon th];nextMonth[ y ear_,mon th_]: =Take[mo nthDates[ y e ar,month +1] [[A ll, 3]] , 7 -d ayOfWeek[year , m onth +1 ]];

Cl ear [monthA rra y]; 
mo nth Ar ray[year_ ,month_] := Mo du le [{a rray} , array=Pa rt iti on [Jo in[Bu t ton[St yle[# ,Gra y, Bo l d,F ontFami l y- > " Helv et ic a"], App ea rance ->No n e,I mageSiz e->All,En abl e d->F al se ]&/@pre viousMonth
-1->"was yesterday.",
_x_/;x==0->"is today.",
_x_/;x==1->"is tomorrow.",
 x_:>Row[{"is ",x,"_days from_now."}]}}],"Text"]],{{d,DateList[][[1;;3]],""},dateSetter[#]&}]

The_code:
Clear[monthDays];
monthDays[year_,month_]:=DateDifference[DateList@{year,month},DateList@{year,month+1}];
monthDays[date_List/;Length@date<=6]:=monthDays[date[[1]],date[[2]]];
monthDays[date_String]:=monthDays@@DateList[date][[1;;2]];

Clear[monthDates];
monthDates[year_,month_]:=DatePlus[DateList@{year,month,0},#]&/@Range[monthDays[year,month]];
monthDates[date_List/;Length@date<=6]:=monthDates[date[[1]],date[[2]]];
monthDates[date_String]:=monthDates@@DateList[date][[1;;2]];

Clear[dayNames];
dayNames[]=DateString[{0,0,#},"DayNameShort"]&/@Range[-1,5];

Clear[dayOfWeek];
dayOfWeek[date_List]:=DateString[date,{"DayNameShort"}]/.Thread[dayNames[]->Range[0,6]];
dayOfWeek[year_,month_]:=dayOfWeek[{year,month,1}];

Clear[previousMonth];
previousMonth[year_,month_]:=Take[monthDates[year,month][[All,3]],-dayOfWeek[year,month]];

Clear[nextMonth];
nextMonth[year_,month_]:=Take[monthDates[year,month+1][[All,3]],7-dayOfWeek[year,month+1]];

Clear[monthArray];
monthArray[year_,month_]:=Module[{array},array=Partition[Join[Button[Style[#,Gray,Bold,FontFamily->"Helvetica"],Appearance->None,ImageSize->All,Enabled->False]&/@previousMonth