如何处理千年虫？如何做到不依赖系统的时间设置？
在Delphi中，有一些全局变量：
DateSeparator := '-';///指定时间分隔符
ShortDateFormat:='yyyy-mm-dd';///指定短日期格式
TwoDigitYearCenturyWindow:=70;///指定时间的偏移
我们知道，两位数的年份，最多能够表示99年，因此才会有千年虫问题，Delphi提供了TwoDigitYearCenturyWindow，可以作为解决的手段。比如将它设为60，它的含义就是将今年的年份前溯60年作为时间窗起点，也就是变换时间窗为1939-2038。
FormatDateTime('ampm hh:mm:ss',Now); = '上午/下午 10:30:59'