G gwei Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-01 #1 DELPHI中DATE 是 YY-MM-DD的形式 ;怎么样得到 YYYY-MM-DD的形式 在修改 系统的 日期类型能得到 ;在不修改系统的 日期类型 ;我要怎么在DELPHI中得到呢
Z zhihuali Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-01 #2 1.在电脑的控制面板中的区域设置中设置。 2.复杂方法： ; var ; ; Year,Month,Day:Word; ; begin ; ; DecodeDate(Date,Year,Month,Day); ; ; Format('%0.4d-%0.2d-%0.2d',[Year,Month,Day]); ; end; 3.动态设置系统，这个方法最好，也最简单，不过我一下子不记得那个函数了。
1.在电脑的控制面板中的区域设置中设置。 2.复杂方法： ; var ; ; Year,Month,Day:Word; ; begin ; ; DecodeDate(Date,Year,Month,Day); ; ; Format('%0.4d-%0.2d-%0.2d',[Year,Month,Day]); ; end; 3.动态设置系统，这个方法最好，也最简单，不过我一下子不记得那个函数了。
M menxin Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-01 #3 FormatDateTime('yyyy-mm-dd',now)
G gwei Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-01 #4 不行呀 ;那个FORMATDATETIME ;不行 ;还一 样的
S saellen Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-01 #5 这个简单呀,看我的... begin ; DateSeparator := '-'; ; ShortTimeFormat := 'yyyy-mm-dd'; ; longtimeformat := 'yyyy-mm-dd'; ; TwoDigitYearCenturyWindow := 70; //这一行可不要忘了,捉千年虫. end; 还不行的话可以骂我. OICQ:12063075 不过是要验证的.
这个简单呀,看我的... begin ; DateSeparator := '-'; ; ShortTimeFormat := 'yyyy-mm-dd'; ; longtimeformat := 'yyyy-mm-dd'; ; TwoDigitYearCenturyWindow := 70; //这一行可不要忘了,捉千年虫. end; 还不行的话可以骂我. OICQ:12063075 不过是要验证的.
G GZCYP Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-01 #7 1:如果是数据表中日期格式，可设置日期字段的displayformat属性为‘YYYY-MM-DD'即可 2：否则在单元中加入：shortdateformat := 'YYYY-MM-DD'; OK!搞定
1:如果是数据表中日期格式，可设置日期字段的displayformat属性为‘YYYY-MM-DD'即可 2：否则在单元中加入：shortdateformat := 'YYYY-MM-DD'; OK!搞定
Z z_gm Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-01 #8 formatdatetime('yyyy"-"mm"-"dd',date); 绝对可以的了
L Luis Pater Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-01 #9 我当初是这样解决的，不过有一定的局限性，没有楼上的各位的方法好！见笑了： var Year, NowDate:string; Temp, TempYear, I:integer; begin ; NowDate:=DateToStr(Date); ; Temp:=pos('-',NowDate); ; Year:=copy(NowDate,1,Temp-1); //由于平台跨越性问题，在9x下年份用2位数字表示， //而在2k下则用四位数字表示，所以添加以下代码 ; if (strtoint(Year)<1900) then ; ; begin ; ; ; if strtoint(Year)<45 then ; ; ; ; Year:='20'+Year ; ; ; else ; ; ; ; Year:='19'+Year; ; ; end; end;
我当初是这样解决的，不过有一定的局限性，没有楼上的各位的方法好！见笑了： var Year, NowDate:string; Temp, TempYear, I:integer; begin ; NowDate:=DateToStr(Date); ; Temp:=pos('-',NowDate); ; Year:=copy(NowDate,1,Temp-1); //由于平台跨越性问题，在9x下年份用2位数字表示， //而在2k下则用四位数字表示，所以添加以下代码 ; if (strtoint(Year)<1900) then ; ; begin ; ; ; if strtoint(Year)<45 then ; ; ; ; Year:='20'+Year ; ; ; else ; ; ; ; Year:='19'+Year; ; ; end; end;
G gwei Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-01 #11 同志们 ;谢谢你们的回答 ;本人是菜鸟 ;没有分给大家了 ;请大家 多包含 ;谢谢了
