繁簡系統日期格式

繁體跟簡體系統的日期格式是不同的.....曾經解決過...結果第二次竟然又忘了...可惡...快得老人癡呆症勒

繁體 2009/12/31
簡體 2009-12-31

要從字串轉成日期有個簡單的方式

var myDate: TDate;
myDStr: String;

myDStr:= '2009/12/31';

Try
myDate:= StrToDate(myDStr);
except
myDStr:= ReplaceText(myDStr, '/', '-');
myDate:= StrToDate(myDStr);
end;


雖然Try用在這裡有點打混.....不過...方便啦...希望其他語系的系統，別再出怪招勒....