my ($y,$m,$d) = Delta_YMD(Today(),2008,4,12);