有没有与 formatdatetime 功能相反的函数?(50分)

  • 主题发起人 主题发起人 游泳的海豚
  • 开始时间 开始时间

游泳的海豚

Unregistered / Unconfirmed
GUEST, unregistred user!
将指定格式的字符串转换成日期型
比如 09/18/02 转换成 2002-9-18
18/09/02 2002-9-18
 
formatdatetime('yyyy-m-dd',strtodate('09/18/02'))
 
to ugvanxk
你在你的计算机上试了吗? [:(!]
 
EncodeDate(y, m, d)
 
procedure TForm1.Button1Click(Sender: TObject);
var
tmp:Tdatetime;
begin
DateSeparator := '/';
shortdateformat:='mm/dd/yy';
tmp:=strtodate('09/18/02');
DateSeparator := '-';
shortdateformat:='yyyy-mm-dd';
edit1.text:=datetostr(tmp);
end;
 
没有完全逆函数。
从字符串到日期一般用 strtodatetime
 
接受答案了.
 
后退
顶部