如何实现'XXXX年MM月DD日'的显示模式(0分)

  • 主题发起人 主题发起人 harveywang
  • 开始时间 开始时间
H

harveywang

Unregistered / Unconfirmed
GUEST, unregistred user!
PARADOX的日期字段如何在TDBEDIT中显示为'YYYY年MM月DD日'的形式
小生急需解决此题,望前辈们不惜赐教!谢谢!
 
procedure TForm1.FormCreate(Sender: TObject);
begin
ShortDateFormat:='yyyy"年"mm"月"dd"日"';
end;
end.
 
sdate:tdate;
dstring:string;
sdate:=now;
dstring:=formatdatetime('yyyy"年"mm"月"dd"日"',sdate);
 
procedure TMain.FormCreate(Sender: TObject);
var
year,month,day:word;
now2:Tdatatime;

begin
now2:=date();
decodedate(now2,year,month,day);
lable1.Text :=inttostr(year)+'年'
+inttostr(month)+'月'
+inttostr(day)+'日';

end;
 
如果软件的字段要自动显示祗要在DBEdit中的Ttable或是Tquery的字段属性中的Display Format中设定就可列如：设ggee’年’mm’月’dd’日’ 显示时就自动加上中华民国？？年？月？日，如果只有 ge’年’mm’月’dd’日’ 就显示为民国？？年？月？日，自动减1911的值。
 
在控制面板的区域设置中改一下日期的格式。
 
in *.dpr:
set

ShortDateFormat:='yyyy年mm月dd日';


such as

begin
ShortDateFormat:='yyyy年mm月dd日';


application.initialze;
...
end.
 
FormatDateTime('yyyy年mm月dd日',new);
 
hi,我刚试过,你双击对应的TABLE,选择TDBEDIT对应的字段,在
DISPLAYFORMAT属性中,写' yyyy'年'mm'月'dd'日' '
在displaylength中,设长度 16
最后在TDBEDIT中显示出'YYYY年MM月DD日'的形式

 
var
date1:string；
date1：=formatdatetime（‘yyyy年mm月dd日’，date）；

 
同意www的
 
该结束了，我同意向红林的，我用这个语句一点错也没有，他们有提这个问题的，我把它
copy过去就给分了
 
使用GETTEXT与SETTEXT，详见钱达智先生的解答
 
接受答案了.
 
您必须登录或注册才可回复。

Similar threads

D
如何只显示Date的MM/DD(100分)
回复
10
查看
174
DxDx
D
W
sql中如何按月份查找数据...(0分)
回复
13
查看
234
hmj
H
H
如何把windows日期格式改成'yyyy-mm-dd'用程序如何实现???(100分)
回复
7
查看
320
jsxjd
J
Y
Access如何保存日期（带时间）的数据--急(100分)
回复
3
查看
167
ycxy
Y
H
怎么知道日期类型的格式？(100分)
回复
14
查看
174
hqx_zlm
H
后退
顶部