哪位高手能给提供一个年周算法，输入的日期，然后获得日期是这一年的第几周啊
2个回答
展开全部
在uses中引用DateUtils;在窗体中加入Edit1和Button1,Edit1用来输入日期，Button1用来显示结果。
在Button1的单击事件下输入代码：Application.Messagebox(pchar(IntToStr(WeekOfTheYear(strtodatetime(Edit1.Text)))),'当前日期在一年当中的第几周,0);
运行后，在Edit1.text中输入格式为：yyyy-mm-dd的日期，比如：2011-07-04，点击Button1即弹出消息框提示结果。
在Button1的单击事件下输入代码：Application.Messagebox(pchar(IntToStr(WeekOfTheYear(strtodatetime(Edit1.Text)))),'当前日期在一年当中的第几周,0);
运行后，在Edit1.text中输入格式为：yyyy-mm-dd的日期，比如：2011-07-04，点击Button1即弹出消息框提示结果。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
