Question

如何delphi button1用FormatdateTime取当前系统日期，然后按钮2实现日期递增？

用label显示日期，我按钮一代码：procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=FormatdateTime('dddddd ',now);
end;
按钮二如何写代码实现按钮一取出的日期递增 并显示在label上？

Answer 1

uses DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=FormatdateTime('dddddd ',now);
end;

procedure TForm1.Button2Click(Sender: TObject);
function Replace(astr: string):string;
begin
astr:= StringReplace(astr,'年','-',[rfReplaceAll]) ;
astr:= StringReplace(astr,'月','-',[rfReplaceAll]) ;
astr:= StringReplace(astr,'日','-',[rfReplaceAll]) ;
Result:= Copy(astr,1,Length(astr)-1);
end;
var
vstr: string;
begin
vstr:= Replace(trim(label1.caption));
Label1.Caption:=FormatdateTime('dddddd',incday( StrToDate(vstr), 1));
end;

追问

能运行但是按钮2会出错，取出来的日期无效，因为按钮一日期格式有个星期几，如何修改？

追答

控制面板--->区域和语言
把长日期格式改为:yyyy'年'M'月'd'日'

追问

在啊，我想要的就是2008年8月8日星期二这种格式，如何修改以上代码实现呢，你QQ多少，我Q像你请教

追答

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=FormatdateTime('dddddd ',now);
label2.Caption:= week(Now);
end;

function TForm1.week(aDate: TDate): string; //增加一个方法,取星期几
var
days: array[1..7] of string ;
begin
days[1] := '星期日';
days[2] := '星期一';
days[3] := '星期二';
days[4] := '星期三';
days[5] := '星期四';
days[6] := '星期五';
days[7] := '星期六';
Result:= days[DayOfWeek(aDate)];
end;

procedure TForm1.Button2Click(Sender: TObject);
function Replace(astr: string):string;
begin
astr:= StringReplace(astr,'年','-',[rfReplaceAll]) ;
astr:= StringReplace(astr,'月','-',[rfReplaceAll]) ;
astr:= StringReplace(astr,'日','-',[rfReplaceAll]) ;
Result:= Copy(astr,1,Length(astr)-1);
end;
var
vstr: string;
begin
vstr:= Replace(trim(label1.caption));
Label1.Caption:=FormatdateTime('dddddd',incday( StrToDate(vstr), 1));
Label2.Caption := week(incday(StrToDate(vstr))) ;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=FormatdateTime('yyyy-mm-dd ',now);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Caption:=FormatdateTime('yyyy-mm-dd ',incday(strtodate(label1.caption), 1));
end;