delphi中经常用到年月日转换大写函数，网上函数很多，但是发现了有些问题。因此做了修正。