社区
Delphi
帖子详情
给出日期,如何知道是这一年的第几周?
deardelphi
2000-08-13 10:58:00
请教各位大虾:
如果给出当前日期,如何知道当前日期是在这一年的第几周中呢?100分送上.
...全文
220
4
打赏
收藏
给出日期,如何知道是这一年的第几周?
请教各位大虾: 如果给出当前日期,如何知道当前日期是在这一年的第几周中呢?100分送上.
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Michaelyfj
2000-08-13
打赏
举报
回复
关注
华南虎哥
2000-08-13
打赏
举报
回复
关注
shylsz
2000-08-13
打赏
举报
回复
procedure TForm1.Button1Click(Sender: TObject);
var
v_nowofweeks,v_nowofweeksofday:integer;
v_firstday:Tdate;
v_firstdayofweek:integer;
ADate: TDate;
begin
ADate := strtodate(edit2.text);
v_firstday:=strtodate(copy(datetostr(adate),0,4)+ '-01-01');
v_firstdayofweek:=dayofweek(v_firstday);
v_nowofweeks:=round(adate - v_firstday) div 7 + 1;
v_nowofweeksofday:=round(adate - v_firstday) mod 7;
if v_firstdayofweek + v_nowofweeksofday >7 then
showmessage(edit2.text + ' is the ' + inttostr(v_nowofweeks + 1) +' week')
else
showmessage(edit2.text + ' is the ' + inttostr(v_nowofweeks) +' week');
end;
//在edit2中输入日期
PoolD
2000-08-13
打赏
举报
回复
function WeekofYear(Date: TDate): integer;
var
FirstDay, FirstWeekEnd, NowWeekEnd: TDate;
Year, Month, Day: word;
begin
DecodeDate(Date, Year, Month, Day);
FirstDay := EncodeDate(Year, 1, 1);
FirstWeekEnd := FirstDay + 7 - DayofWeek(FirstDay);
NowWeekEnd := Date + 7 - DayofWeek(Date);
Result := Round(NowWeekEnd - FirstWeekEnd) div 7 + 1;
end;
java中获取
日期
属于哪
一年
的第
几周
在设计数据模型的时候需要用到年份+周数作为唯一索引,于是就需要判断一个
日期
是属于哪
一年
的第
几周
,本来问题很简单的,但是会涉及到跨年的问题,例如以周一作为一个星期的开始,那么2018-12-30日星期日,属于2018年的第52周,而2018-12-31日星期一,就属于2019年的第1周,因此,只用一个
日期
属于第
几周
来判断是会有问题的,下面这个方法里面返回了年份与第
几周
,可以满足要求。 publi...
MySql获取某天是
一年
的第
几周
MySql获取某天是
一年
的第
几周
,要求周一为第一天,并且
一年
多余的天数算到第二年的第一周 MySql获取某天是
一年
的第
几周
,要求周一为第一天,并且
一年
多余的天数算到第二年的第一周,比如2012-12-24至2012-12-30为2012年的第53周,2012-12-31为2013年的第一周,(2012年有53周),我测试了week(date,N)各种参数,都不行 自问自答,刚刚自己测试
MySQL查询
日期
为
一年
第几天第
几周
,天数周数反查
日期
某
日期
是
一年
的第几天,第
几周
,
日期
查周数,查天数;第几天反查
日期
,周数反查
日期
.
(c语言)输入某年某日,判断这一天是这
一年
的第几天?
c语言输入某年某日,判断这一天是这
一年
的第几天? #include<stdio.h> #include<stdlib.h> int main(){ int date,y,m,d,i,h=0;//20210127 int days[13]={0,31,28,31,30,31,30,31,31,30,31,30,31}; printf("请输入您的
日期
数字(例如20210127):"); scanf("%d",&date); y=date/10000; m=date
Java 根据字符串格式
日期
转化出当前属于哪
一年
的第
几周
Java 根据字符串格式
日期
转化出当前属于哪
一年
的第
几周
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章