Label1.Caption:=IntToStr((StrToInt(Edit1.Text) div 10000)) +'-'+IntToStr(((StrToInt(Edit1.Text) mod 10000) div 100)) +'-'+IntToStr(StrToInt(Edit1.Text) mod 100);
var dt:TDateTime;begin dt:=StrToDate(IntToStr((StrToInt(Edit1.Text) div 10000)) +'-'+IntToStr(((StrToInt(Edit1.Text) mod 10000) div 100)) +'-'+IntToStr(StrToInt(Edit1.Text) mod 100));
自己写个函数,或者三个eidt输入用'-'连接起来吧。
+'-'+IntToStr(((StrToInt(Edit1.Text) mod 10000) div 100))
+'-'+IntToStr(StrToInt(Edit1.Text) mod 100);
dt:TDateTime;begin
dt:=StrToDate(IntToStr((StrToInt(Edit1.Text) div 10000))
+'-'+IntToStr(((StrToInt(Edit1.Text) mod 10000) div 100))
+'-'+IntToStr(StrToInt(Edit1.Text) mod 100));