社区
Delphi
帖子详情
给出日期,如何知道是这一年的第几周?
deardelphi
2000-08-13 10:58:00
请教各位大虾:
如果给出当前日期,如何知道当前日期是在这一年的第几周中呢?100分送上.
...全文
221
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;
容器入门(
一年
有效期)
这是一门入门课程,专为几乎零基础容器知识的学员而设计。它将教授容器化背后的发展历史和概念,介绍容器生态系统中使用的特定技术,并讨论容器在微服务架构中的重要性。本视频由 Amazon Web Services, Inc. 及其关联公司制作并享有版权。
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
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章