如何判断系统日期的格式？

[pms]

比如，判断系统的日期格式是2005-04-20，还是2005/04/20，用哪个函数？

[pms]

我要定义一个日期常量：TDateTime TheDate = StrToDate("2005-04-20")，但不知道应该怎么赋值好，赋值不对的话，会出现"2005-04-20" is not a valid date　之类的错误提示。

[pms]

比如我强制设置系统日期格式为2005-04-20，该用什么函数？

[COKING]

ShowMessage(ShortDateFormat);
ShortDateFormat="YYYY-MM-DD";

[柯本]

简单地,设
DateSeparator='-';
就可以了
系统有一套urrency and date/time formatting variables

extern PACKAGE AnsiString CurrencyString;

extern PACKAGE Byte CurrencyFormat;
extern PACKAGE Byte NegCurrFormat;
extern PACKAGE char ThousandSeparator;
extern PACKAGE char DecimalSeparator;
extern PACKAGE Byte CurrencyDecimals;
extern PACKAGE char DateSeparator;
extern PACKAGE AnsiString ShortDateFormat;
extern PACKAGE AnsiString LongDateFormat;
extern PACKAGE char TimeSeparator;
extern PACKAGE AnsiString TimeAMString;

extern PACKAGE AnsiString TimePMString;
extern PACKAGE AnsiString ShortTimeFormat;
extern PACKAGE AnsiString LongTimeFormat;
extern PACKAGE AnsiString ShortMonthNames[12];
extern PACKAGE AnsiString LongMonthNames[12];
extern PACKAGE AnsiString ShortDayNames[7];
extern PACKAGE AnsiString LongDayNames[7];
extern PACKAGE TSysLocale SysLocale;
extern PACKAGE AnsiString EraNames[7];
extern PACKAGE int EraYearOffsets[7];

extern PACKAGE Word TwoDigitYearCenturyWindow;
extern PACKAGE char ListSeparator;

[gzlcd]

时间格式好像要在控制面板中才能改！

[icwin]

up

[cczlp]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
ShowMessage(LongDateFormat);
LongDateFormat = "yyyy-mm-dd";
ShowMessage(LongDateFormat);
TDateTime dt = StrToDate("2005-04-20");
ShowMessage(dt.DateString());
}

[szy2005]

我是菜鸟看不懂

帮你顶顶吧

[samchoy]

同意 COKING(天晴) ( ) 信誉：100
用 ShortDateFormat="YYYY-MM-DD";

[puma66]

ShortDateFormat="YYYY-MM-DD";
DateSeparator='-';
这样最好，既不改变系统日期格式，又解决了问题。