Question

vfp中要计算两个日期间相差天数如何编写程序？

例如2014-03-10至2014-04-03 相差24天 如果相差63天则应该输出 相差2个月3天 整月按30天算 不足整月的数天数计算。（要完整，包括跨年计算）

Answer 1

Local date2,date1
date2 = ctod('2014-12-19')
date1 = ctod('2014-10-20')
if (date2-date1)<30 then
messagebox('相差'+transform(date2-date1)+'天')
else
if MOD(date2-date1,30) = 0 then
messagebox('相差'+transform(Floor((date2-date1)/30))+'个月')
else
messagebox('相差'+transform(Floor((date2-date1)/30))+'个月'+transform(MOD(date2-date1,30))+'天')
endif
endif