游 游泳的海豚 Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-09 #1 将指定格式的字符串转换成日期型 比如 09/18/02 转换成 2002-9-18 18/09/02 2002-9-18
U ugvanxk Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-09 #2 formatdatetime('yyyy-m-dd',strtodate('09/18/02'))
游 游泳的海豚 Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-09 #3 to ugvanxk 你在你的计算机上试了吗? [!]
Q QuickSilver Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-09 #5 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;
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;
J jsxjd Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-09 #6 没有完全逆函数。 从字符串到日期一般用 strtodatetime