关于时间转换的问题

Question

自己写函数了
把后两们取出来，转换成int，计算(有加一年或减一年在处理前4位),
完成转换成字符串
就这样了。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(change(edit1.Text,-5));
end;function Tform1.change(par : string;count : integer):string;
var
  str : string;
  date : Tdate;
begin
  str :=copy(par,0,4)+'-'+copy(par,5,2)+'-01';
  date :=strtodate(str);
  result :=copy(datetostr(incmonth(date,count)),0,6);
end;

Answer 2

S := FormatDateTime('"The meeting is on " dddd, mmmm d, yyyy, " at " hh:mm AM/PM',   StrToDateTime('2/15/95 10:30am'));

Answer 3

Function GetMonth(s: String; i:Integer): String;
var j, k, l, m: Integer;
begin
     j:=StrToInt(Copy(s,1,4));
     k:=StrToInt(Copy(s,5,2));     l:=i div 12;
     m:=i mod 12;     if k>m then Result:=IntToStr((j-l)*100+(k-m))
     else if k=m then Result:=IntToStr((j-l-1)*100+12)
     else Result:=IntToStr((j-l-1)*100+(12+k-m));
end;