日期换算算法,delphi初学者学习用例。