1. '2000年3月27日'---->'00-3-27'
function MyFunc1(ADate:string):string;
var
i:integer;
begin
LongDateFormat:='yyyy/mm/dd';
ShortDateFormat:='yyyy/mm/dd';
DateSeparator:='/';
Result:=ADate;
i:=Pos('日',Result);
Result:=System.Copy(Result,1,i-1);
i:=Pos('月',Result);
System.Delete(Result,i,2);
System.Insert('/',Result,i);
i:=Pos('年',Result);
System.Delete(Result,i,2);
System.Insert('/',Result,i);
Result:=FormatDateTime('yy-mm-dd',StrToDate(Result))
end;
2.'00-3-27'---->'2000年3月27日'
function MyFunc2(ADate:string):string;
begin
LongDateFormat:='yy-mm-dd';
ShortDateFormat:='yyyy-mm-dd';
DateSeparator:='-';
Result:=FormatDateTime('yyyymmdd',StrToDate(ADate));
System.Insert('日',Result,9);
System.Insert('月',Result,7);
System.Insert('年',Result,5);
end;
