将EXCEL工作表中日期型数据转换为文本后变成数值型的数据转换为VFP中可识别的日期

作者在 2021-04-20 09:30:15 发布以下内容

在EXCEL中,将日期型数据:2021-04-20 转换为文本数据后,其值变为 44306,如何在VFP中将44306 转换为日期型数据:2021-04-20

解决方案:

? DATE(1899, 12, 30) + 44306

转换结果:2021-04-20

下面代码由都市夜猫提供:https://bbs.csdn.net/topics/392189538

nn = 14993.48827
IF nn < 60
    日期 = {^1900-1-1} + INT(nn) - 1
ELSE
    日期 = {^1900-1-1} + INT(nn) - 2
ENDIF
tt = nn - INT(nn) + 0.00001
时 = INT(tt * 24)
分 = INT((tt - 时/24) * 60*24)
秒 = INT((tt - 时/24 - 分/24/60) * 60*60*24)
tt = DATETIME(year(日期), month(日期), day(日期), 时, 分, 秒)
? nn, '=', tt


默认分类 | 阅读 898 次
文章评论,共0条
游客请输入验证码
文章分类
最新评论