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研究之驱动开发篇（六）--利用section与用户模式程

Delphi 过卡巴2009和沙盘启发杀毒的Delphi源代码

Delphi trayicon控件,如何实现窗口最小化的时候到系统托盘？

Delphi html转义字符编码转换

Delphi 简单的定时程序代码

Delphi with 语句的妙用

Delphi 无法打不开读取文件名有逗号的文件

Delphi http post json示例

Delphi统计字数（汉字+字母+符号）

Delphi xe2 - 实现无敌关机键

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