编程偶得:一组日期处理函数
da_yu 2003-10-09 11:20:03
//日期3=日期2-日期1(格式:YYYY-MM-DD)
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.text :=inttostr(trunc(StrToDate(edit2.text) - StrToDate(edit1.text)));
end;
//日期4=日期1加1(格式:YYYY-MM-DD)
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit4.text :=DateToStr(Succ(trunc(StrToDate(edit1.text))));
end;
//日期5=日期1格式化(变成YYYYMMDD)
procedure TForm1.Button3Click(Sender: TObject);
begin
Edit5.text :=FormatDateTime('yyyymmdd',StrToDate(edit1.text));
end;
//日期6=日期4格式化(变成YYYYMMDD)
procedure TForm1.Button4Click(Sender: TObject);
begin
Edit6.text :=FormatDateTime('yyyymmdd',StrToDate(edit4.text));
end;
//日期递增(格式:YYYY-MM-DD)
procedure TForm1.Button5Click(Sender: TObject);
begin
Edit7.text :=DateToStr(Succ(trunc(StrToDate(edit7.text))));
end;
//格式化递增
procedure TForm1.Button6Click(Sender: TObject);
begin
Edit8.text :=FormatDateTime('yyyy-mm-dd',(Succ(trunc(StrToDate(edit8.text)))));
Edit9.text :=FormatDateTime('yyyymmdd',StrToDate(edit8.text));
end;