delphi 6 strtodate 系统格式报错

在delphi中，当程序代码的strtodate参数格式与系统的短日期格式不一致时，http://blog.csdn.net/dydn120w/article/details/51118610能够解决，但delphi中没有这个方法和参数，所以只能按照以下方法解决：

1、获取系统日期分隔符，liqutils.dateseparater。

2、Format('yyyy%smm%s1',[DateSeparator,DateSeparator]），将需要转义的格式化为系统同步格式；

3、将同步完的格式进行strtodate即可适应不同系统格式，StrToDate(FormatDateTime(Format('yyyy%smm%s1',[DateSeparator,DateSeparator]),IncMonth(Now,-1)))。