永发信息网

VFP作业:按yyyy-mm-dd格式输入一个日期,如2015-10-31,判断这是这一年的第几天。

答案:1  悬赏:10  手机版
解决时间 2021-02-28 10:44
VFP作业:按yyyy-mm-dd格式输入一个日期,如2015-10-31,判断这是这一年的第几天。
最佳答案
vfp 有很丰富的时间和日期函数  直接把输入的日期减去当年的1月1日 再+1 就是这一年的第几天了.
SET DATE  ymd
SET CENTURY on
SET MARK TO "-"
input_str=INPUTBOX("输入日期(yyyy-mm-dd)","计算第几天",DTOC(DATE()))
input_date=CTOD(input_str)
*WAIT WINDOW NOWAIT  DTOC(input_date)
IF input_date={}
=MESSAGEBOX("输入的日期错误",0+32+256,'计算第几天')  
RETURN
ENDIF
fist_day_str=STR(year(input_date),4)+'-01-01'
fist_day=CTOD(fist_day_str)
item_date= input_date-fist_day
*?item_date

=MESSAGEBOX('输入日期:'+input_str+CHR(13)+'是'+STR(year(input_date),4)+"年的第"+STR(item_date,5)+"天",0+64+256,'计算第几天')  
RETURN效果


错误提示

追问可以帮我看看我这段代码有什么问题吗?


追答代码不完整 .. 提示有什么错误
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
欧巴和达令是什么意思
鲜又多果蔬超市我想知道这个在什么地方
面试没有通过的话,想尽办法寻找拒绝原因是否
用凉水洗脸能改善红血丝吗
商业银行和企业在进行内部核算时所使用的汇率
词不搭意也好 言不由衷也罢什么意思
PCB生产时为什么金板的孔铜厚度比锡板薄
银行贷款利息和车贷的利息哪个低?
一个长度3.6米的正方形木框分别用4根宽是4分
奥普奥韵和奥普HDP1021C有什么区别
盐城阜宁公办小学教师工资,待遇
顺强饭店怎么去啊,有知道地址的么
合信金融p2p怎么样
请问,我的车贷到期了,现在想要去银行拿回绿
凑成的近义词是什么
推荐资讯
脸上的粉刺痘痘都硬硬的,摸起来硌手,以为角
母猪的紫色斑 怎么回事
我国那有防弹车改装厂?
经过一审、二审法庭质证的证据,再审时需要
两个半月小萨摩肚子里为什么就有虫子了???
速求哪位MT4大神帮忙说明下这个附图窗口的顶
车险理赔模式的研究方法有哪些
古筝琴谱大三角是什么
五分利息是什么意思
热血江湖里怎么学习技能?
陌陌最高等级分是多少
金达装饰材料地址有知道的么?有点事想过去
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?