初学delphi,如何得到日期分隔符。谢谢。

Question

初学delphi,如何得到日期分隔符。谢谢。

Answer 1

时间分隔符可以为-/.例2002-09-30，2002/09/30，2002.09.30.在editmask中分隔符与控制面板的时间分隔符一致。我如何从程序中得到？谢谢。

Answer 2

API：int GetTimeFormat(    LCID Locale, // locale for which time is to be formatted 
    DWORD dwFlags, // flags specifying function options 
    CONST SYSTEMTIME *lpTime, // time to be formatted 
    LPCTSTR lpFormat, // time format string 
    LPTSTR lpTimeStr, // buffer for storing formatted string 
    int cchTime  // size, in bytes or characters, of the buffer 
   );

Answer 3

用DateSeparator variable在Delphi help查查，自己看去。

Answer 4

什么意思，你是要改变日期的显示形式吗？
用formatdatetime()

Answer 5

说错了，它不是常量
见sysutils单元594行开始

Answer 6

var 
a:string;
begin
a:=copy(datetostr(date),5,1);
end;

Answer 7

输入日期或者时间的话，editmask不是最好的选择。
Win32页的DateTimePicker控件更合适。