关于日期分期 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim d As Date = #5/30/2011#
Dim d2 As Date = #5/1/2012#
Do While d < d2
    If d.day <> Date.DaysInMonth(d.year,d.month)
        d = new Date(d.year,d.month,Date.DaysInMonth(d.year,d.month))
    Else
        Dim d1 As Date = d
        d = d.Addmonths(1)
        If d1.day = Date.DaysInMonth(d1.year,d1.month) Then
            d = new Date(d.year,d.month,Date.DaysInMonth(d.year,d.month))
        End If
    End If
    output.show(d)
Loop

效果对的,让他们测试一下其它日期,谢谢你的帮忙.我越来越喜欢这个了.

做了一个，似乎For ...Next　比　Do... Loop好点,后者增加行时有明显的跳跃感.

Dim Ls As String() = {"客户编号","客户名称","合同编号","本金","付息方式","方式","利率","合同现状"}

Dim d1,d2,d3,d As Date

Dim n,n1,i,y,m As Integer

Dim r1,r2 As Row

Dim t As Table

r1 = Tables("合同").Current

d1 = r1("计息开始时间")

d2 = r1("计息结束时间")

y = d1.year

m= d1.month

d = New Date(y,m,Date.DaysInMonth(y,m))

n = DateDiff("m",d1,d2) + iif(d1< d,1,0)

t =Tables("利息")

t.StopRedraw

For i = 0 To n-1

r2 = t.AddNew()

For Each s As String In Ls

r2(s) = r1(s)

If d1<d AndAlso i = 0 Then

d2 = d1

d3 = d

Else

n1 =iif(d1<d,i-1,i)

y = d.AddMonths(n1).year

m = d.AddMonths(n1).month

d2 = New Date(y,m,Date.DaysInMonth(y,m))

y = d.AddMonths(n1+1).year

m = d.AddMonths(n1+1).month

d3 = New Date(y,m,Date.DaysInMonth(y,m))

End If

r2("本期起息日") = d2

r2("本期结息日") = d3

t.ResumeRedraw

测试了,好代码.就是没有老大的简单,老大的是有一条条闪过的问题.

这样是否容易理解些:

Dim Ls As String() = {"客户编号","客户名称","合同编号","本金","付息方式","方式","利率","合同现状"}

Dim d1,d2,d As Date

Dim n,i As Integer

Dim r1,r2 As Row

Dim t As Table

r1 = Tables("合同").Current

d1 = r1("计息开始时间")

d2 = r1("计息结束时间")

n = Date.DaysInMonth(d1.year,d1.month)

d = New Date(d1.year,d1.month,n)

n = IIf(d.day<31,1,0)

t =Tables("利息")

If d1<d Then

r2 = t.AddNew()

For Each s As String In Ls

r2(s) = r1(s)

r2("本期起息日") = d1

r2("本期结息日") = d

End If

d= New Date(d.year,d.month-n,31)

For i = n To DateDiff("m",d,d2)-1

r2 = t.AddNew()

For Each s As String In Ls

r2(s) = r1(s)

r2("本期起息日") = d.AddMonths(i)

r2("本期结息日") = d.AddMonths(i+1)

[此贴子已经被作者于2011-7-29 18:35:33编辑过]

看不懂用在哪里？能否给新手搞个范例，功德无量！！

主题：关于日期分期