如何解決程式日期格式與系統日期格的沖突問題?(50分)

為不同公司做程式, 不同公司采用的日期格不一樣, 以前我都采用系統(win98)
的日期格式, 但每次測試都要把系統日期改動一次, 很煩人, 哪位大俠提供一
種簡便的方式(不要說在BDE Administrator中設定)幫我除難,多謝!!!

Unit

Sysutils

The following are a set of variables used to define the format for numeric or date/time strings:

var CurrencyString: string;
var CurrencyFormat: Byte;
var NegCurrFormat: Byte;
var ThousandSeparator: Char;
var DecimalSeparator: Char;
var CurrencyDecimals: Byte;
var DateSeparator: Char;
var ShortDateFormat: string;
var LongDateFormat: string;
var TimeSeparator: Char;
var TimeAMString: string;
var TimePMString: string;
var ShortTimeFormat: string;

var LongTimeFormat: string;
var ShortMonthNames: array[1..12] of string;
var LongMonthNames: array[1..12] of string;
var ShortDayNames: array[1..7] of string;
var LongDayNames: array[1..7] of string;

var SysLocale: TSysLocale;
var EraNames: array[1..7] of string;
var EraYearOffsets: array[1..7] of Integer;
var TwoDigitYearCenturyWindow: Word = 50;

var TListSeparator: Char;

从我的程序中选一段：

Table1.Edit;
Table1.FieldByName('有效期').AsString:=
DateToStr(DateTimePicker1.date);
Table1.refresh;

用户根本就不用按格式填写。因为不用写，所以错的机会不大。

用FORMATDATETIME就不存在日期格式问题，因为他取的就是系统日期。

加一句在程序开头
ShortDateFormat:='yyyy-mm-dd';

接受答案了.