真正的公农历转换类for VB

作者: 来源:网络文章时间:2005-12-13 17:20:20

真正的公农历转换类for VB(25)     If m <> leap Then
       mvarIsLeap = False '当前日期并非闰月
    Else
       mvarIsLeap = LeapFlag '使用用户输入的是否闰月月份
    End If

    If (m < leap) Or (leap = 0) Then   '当闰月在当前日期后
        For i = 1 To m - 1
           Temp = lMonthDays(y, i) '计算非闰月天数
           offset = offset + Temp
        Next
    Else   '在闰月后
        If mvarIsLeap = False Then '用户要计算非闰月的月份
             For i = 1 To m - 1
                Temp = lMonthDays(y, i) '计算非闰月天数
                offset = offset + Temp
             Next
             If m > leap Then
                Temp = leapDays(y)   '计算闰月天数
                offset = offset + Temp
             End If

        Else '此时只有mvarisleap=ture,
               For i = 1 To m
                 Temp = lMonthDays(y, i) '计算非闰月天数

共26页 9 7 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] 8 :>

真正的公农历转换类for VB 相关文章：

真正的公农历转换类for VB 相关软件：

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
转载请注明来源：http://www.xgdown.com