($d,$m,$y)=(localtime((time-60*60*(12+(localtime)[2]))))[3,4,5];