In[]:=
(*withleading0s*)​​today=
Sat 27 Sep 2025
+Quantity[1,"days"];​​dateString=Cases[today,_List,{1,Infinity},Heads->True][[1]]//Reverse;​​nums={IntegerDigits[dateString[[1]],10,2],IntegerDigits[dateString[[2]],10,2],IntegerDigits[dateString[[3]]]};​​num1=nums//Flatten//FromDigits;​​num2=nums[[{2,1,3}]]//Flatten//FromDigits;​​​​While[(IntegerQ[Sqrt@num1]&&IntegerQ[Sqrt@num2])==False,​​today+=Quantity[1,"days"];​​dateString=Cases[today,_List,{1,Infinity},Heads->True][[1]]//Reverse;​​nums={IntegerDigits[dateString[[1]],10,2],IntegerDigits[dateString[[2]],10,2],IntegerDigits[dateString[[3]]]};​​num1=nums//Flatten//FromDigits;​​num2=nums[[{2,1,3}]]//Flatten//FromDigits;​​]​​​​today
Out[]=
Tue 1 Jan 2036
In[]:=
(*withoutleading0s*)​​today=
Sat 27 Sep 2025
+Quantity[1,"days"];​​dateString=Cases[today,_List,{1,Infinity},Heads->True][[1]]//Reverse;​​nums={IntegerDigits[dateString[[1]]],IntegerDigits[dateString[[2]]],IntegerDigits[dateString[[3]]]};​​num1=nums//Flatten//FromDigits;​​num2=nums[[{2,1,3}]]//Flatten//FromDigits;​​​​While[(IntegerQ[Sqrt@num1]&&IntegerQ[Sqrt@num2])==False,​​today+=Quantity[1,"days"];​​dateString=Cases[today,_List,{1,Infinity},Heads->True][[1]]//Reverse;​​nums={IntegerDigits[dateString[[1]]],IntegerDigits[dateString[[2]]],IntegerDigits[dateString[[3]]]};​​​​num1=nums//Flatten//FromDigits;​​num2=nums[[{2,1,3}]]//Flatten//FromDigits;​​​​]​​​​today
Out[]=
Wed 5 May 2049
In[]:=
(*withoutleadingzeros,anddisallowingmonthtoequalyearsothenumbersaredifferentinthetwoformats*)​​today=
Sat 27 Sep 2025
+Quantity[1,"days"];​​dateString=Cases[today,_List,{1,Infinity},Heads->True][[1]]//Reverse;​​nums={IntegerDigits[dateString[[1]]],IntegerDigits[dateString[[2]]],IntegerDigits[dateString[[3]]]};​​num1=nums//Flatten//FromDigits;​​num2=nums[[{2,1,3}]]//Flatten//FromDigits;​​​​While[(IntegerQ[Sqrt@num1]&&IntegerQ[Sqrt@num2])==False,​​today+=Quantity[1,"days"];​​dateString=Cases[today,_List,{1,Infinity},Heads->True][[1]]//Reverse;​​nums={IntegerDigits[dateString[[1]]],IntegerDigits[dateString[[2]]],IntegerDigits[dateString[[3]]]};​​​​num1=nums//Flatten//FromDigits;​​num2=nums[[{2,1,3}]]//Flatten//FromDigits;​​If[dateString[[1]]==dateString[[2]],​​(*setnum1andnum2toanonperfectsquareifdateandmonthareequal*)​​num1=num2=2;​​];​​]​​today
Out[]=
Sat 21 May 2089