Delphi 取得某一天所在的星期一及星期天

本文整理自网络，侵删。

 uses System.DateUtils;

// 取得某一天所在的星期一及星期天
procedure TForm1.Button1Click(Sender: TObject);
var dw1,dw7,dnow:tdatetime;
begin
  dnow:=StrtoDatetime(edtnow.Text);
  dw1:=(StartOfTheWeek(dnow));
  edtw1.Text := Datetimetostr(dw1);
  dw7:=(Endoftheweek(dnow));
  edtw7.Text := Datetimetostr(dw7);
end; 

相关阅读 >>

Delphi idhttp中设置非标准头信息和读写cookie

Delphi编程用流来读取txt文件中的数据

Delphi 开发64位应用程序使用windows api的注意事项

Delphi 有关debughook

Delphi 动态给combobox赋值，从combobox中取值

Delphi 让子窗体显示最大化

Delphi 倒计时源码

Delphi隐藏当前进程(新)

Delphi 根据分割符只取最后的值

Delphi extractfileext() 获取文件后缀的函数

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 取得某一天所在的星期一及星期天