function GetDayofYearWeek(D:TdateTime): integer;
var
s:string;
i,betweenDay,j:integer;
begin
s:=FormatDateTime('yyyy',D);
s:=s+'-01-01';
i:=DayOfWeek(strtodate(s));
betweenDay:=floor(D-strTodate(s));
j:= betweenDay mod 7;
betweenday:=floor(betweenDay/7)+1;
if j+i>7 then
betweenday:=betweenday+1;
result:=betweenday;
end;
var
s:string;
i,betweenDay,j:integer;
begin
s:=FormatDateTime('yyyy',D);
s:=s+'-01-01';
i:=DayOfWeek(strtodate(s));
betweenDay:=floor(D-strTodate(s));
j:= betweenDay mod 7;
betweenday:=floor(betweenDay/7)+1;
if j+i>7 then
betweenday:=betweenday+1;
result:=betweenday;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货