求救:如何计算没月的1号为星期几?? 求救:如何计算没月的1号为星期几??高手帮忙 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 function GetDayoOfWeek(sDate: string): integer;var dt: TDatetime;begin dt := StrToDate(sDate); Result := DayOfWeek(dt);end;//传入一个字符串,如: '2005-07-08',返回这天的星期数 uses dateutils;...//返回一个日期是一周中的第几天DayOfWeek() //这个是星期一为一周第1 天为标准DayOfTheWeek() //这个是星期天为一周第1 天为标准 不好意思,笔误,刚好说反了应该是DayOfWeek() //这个是星期天为一周第1 天为标准DayOfTheWeek() //这个是星期一为一周第1 天为标准 如何让一个整数保留2位小数 delphi多窗体的问题 接了几次分,我也散散 在delphi里如何调整分辨率 使用Pchar类型是否需要我们来分配内存及释放内存??? 如何遍历我制定目录下的所有文件名(我想得到所有的文件名,然后通过一定的条件,删除我不要的文件。) 这个函数哪里出错 急!用Delphi如何读写文件的创建、修改、访问日期和时间? Timer控件的奇怪问题? 给字符串加密时出现“Integer overflow”错误是为何? 开机自动运行的程序如何获得焦点? delphi程序员
var
dt: TDatetime;
begin
dt := StrToDate(sDate);
Result := DayOfWeek(dt);
end;//传入一个字符串,如: '2005-07-08',返回这天的星期数
...
//返回一个日期是一周中的第几天
DayOfWeek() //这个是星期一为一周第1 天为标准
DayOfTheWeek() //这个是星期天为一周第1 天为标准
应该是
DayOfWeek() //这个是星期天为一周第1 天为标准
DayOfTheWeek() //这个是星期一为一周第1 天为标准