标题：日期的问题

1楼

blackzhu 发表于：2011/8/1 8:28:00

2011-4-30 到 2011-6-2 按照我们做法利用datediff 可以算出 M月数 d天数

但是这个时间段按照上面的算法,月数是2个月天数是33天,但是实际的是1个月多三天.所以如果我有三个列

周期月数周期天数多余天数

1 33 3

这个怎么做?因为每一个月的天数是不同的?

2楼

don 发表于：2011/8/1 8:31:00

参照Format大师的年月日(易表)算法

3楼

blackzhu 发表于：2011/8/1 8:43:00

不明白,能举个例子吗?

4楼

狐狸爸爸 发表于：2011/8/1 8:49:00

算出月数后，用第一个日期加上这个月数(AddMonths)，如果大于第二个日期，那么正确的月数就是这个月数减1

[此贴子已经被作者于2011-8-1 8:49:33编辑过]

5楼

don 发表于：2011/8/1 8:50:00

Dim n1,n2 As Integer

Dim d1,d2,d As Date

d1 =#4/30/2011#

d2=#6/2/2011#

n1=datediff("m",d1,d2)

d=d1.AddMonths(n1)

n1=n1- iif(d2<d,1,0)

Output.Show(n1)

6楼

blackzhu 发表于：2011/8/1 8:51:00

我研究一下

7楼

blackzhu 发表于：2011/8/1 8:58:00

但是我如何判断这个月的天数呢,我还要算多余的天数的呀

8楼

don 发表于：2011/8/1 9:00:00

d2-d1.Addmonths(n)

9楼

blackzhu 发表于：2011/8/1 9:17:00

我怎么算出来多余天数是5天.不对的吧?

10楼

狐狸爸爸 发表于：2011/8/1 9:33:00

Dim n1,n2 As Integer
Dim d1,d2,d As Date
d1 =#4/30/2011#
d2=#6/2/2011#
n1=datediff("m",d1,d2)
d = d1.AddMonths(n1)
n1= n1 - iif(d2<d,1,0)
Output.Show("月数:" & n1)
output.show("多余天数:" & (d2 - d1.AddMonths(n1)).Totaldays)

共19 条记录, 每页显示 10 条, 页签: [1] [2]