Question

delphi中如何把dd-mm-yyyy转化为yyyy-mm-dd的格式呢

Answer 1

自定义一个函数，
function GetDateFmt(str:string):string;
var
dd,mm,yy:string;
begin
dd:= Copy(str,1,2);
mm:= Copy(str,4,2);
yy:= Copy(str,7,4);
Result:= yy+ '-' + mm + '-' +dd;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
begin
str:= '12-03-2012';
ShowMessage(GetDateFmt(str)); //调用该函数，应该是你想要得结果。
end;

Answer 2

使用这个方法： FormatDateTime(格式,待转换时间);

例如：
sDMY := FormatDateTime('dd-mm-yyyy',Now);

Answer 3

你是不是想获取电脑里当前日期的时候是yyyy-mm-dd
而你现在却是dd-mm-yyyy
你这个去控制面板里面找到日期设置就行

Answer 4

convetDate := FormatDateTime('yyyy-mm-dd',Now);