搜狗做题网VFP 通过数值转成日期
来源：学生作业帮 编辑：搜狗做题网作业帮 分类：综合作业 时间：2024/06/23 05:24:05
VFP 通过数值转成日期
如：EW0W501W 第一个0 代表年度 10年,50代表10年的第50周,1代表这周第1天（周一）,使用VFP 如何转成如期 2010-12-13?
如：EW0W501W 第一个0 代表年度 10年,50代表10年的第50周,1代表这周第1天（周一）,使用VFP 如何转成如期 2010-12-13?
首先, 字符串 EW0W501W 的格式是固定的么?
Set Date Ymd
Set Century on
Set Mark To '-'
lcString = 'EW0W501W'
year1 = '201' + substr(lcString,3,1)
**看看一年的第一天是周几
** 因为这属于上一个年份的最后一周的剩余天数
n = dow(ctod(year1 + "-01-01"),2)
** 然后计算到指定的时间的天数
day1 = (val(substr(lcString,5,2)) - 1) * 7 + val(substr(lcString,7,1))
** 显示时间
? ctod(year1 + "-01-01") + day1 + 7 - n
Set Date Ymd
Set Century on
Set Mark To '-'
lcString = 'EW0W501W'
year1 = '201' + substr(lcString,3,1)
**看看一年的第一天是周几
** 因为这属于上一个年份的最后一周的剩余天数
n = dow(ctod(year1 + "-01-01"),2)
** 然后计算到指定的时间的天数
day1 = (val(substr(lcString,5,2)) - 1) * 7 + val(substr(lcString,7,1))
** 显示时间
? ctod(year1 + "-01-01") + day1 + 7 - n