How do I add a dot inside the zeros on the date?

My MWE

documentclass[a4paper,11pt]{article}

%%%%%%%%%%%%% dot with zero
makeatletter
newcommand*{pmzerodot}{%
  nfss@text{%
sbox0{$vcenter{}$}% math axis
sbox2{0}%
sbox4{0/}%
ooalign{%
  0cr
  hidewidth
  kerndimexprwd4-wd2relax % compensate for slanted fonts
  raisedimexpr(ht2-dp2)/2-ht0relaxhbox{%
    if bexpandafter@carf@series@nilrelax
      mathversion{bold}%
    fi
    $cdotm@th$%
  }%
  hidewidth
  cr
  vphantom{0}% correct depth of final symbol
}%
  }%
}
makeatother

title{}

usepackage{datetime}
newdateformat{specialdate}{twodigit{THEDAY}.twodigit{THEMONTH}.THEYEAR}
date{specialdatetoday}
begin{document}

maketitle

Bla...

end{document}

And output

But that I want

How do I add a dot inside the zeros on the date?