DayOfWeek(TDateTime);1->星期日,7->星期六
解决方案 »
- 睡觉去了
- ***************关于DBGRID显示数据的问题*******************
- 使用TWindowsMediaPlayer控件进行视频播放是如何实现预览的功能。
- 小弟第一次听说enlib组件好用,我下载了enlib3.4组件但不知道怎么用,请高手帮忙!!!!
- 用tstringlist如何修改文本文件的某一行?
- 请教高手,在线等待.............
- sizeof的疑问?应该估计是delphi的bug。ps:我怎么也找不出问题。
- Kingron主页更新中.........
- 关于窗口内变量的传递
- 怎样将 TImage 中装载的 Picture 释放掉
- delphi中怎样用sql数据库?
- delphi中保存数据记录的程序怎样写?
function WeeksFromYearBegin(D:TDateTime):Integer;
begin
Result:=(Trunc(D-StartOfTheYear(D)) div 7)+1;
end;