【Access小品】哥德巴赫折腾--关于工厂日历的示例

todaynew

  　版友yanwei82123300连发两贴求问关于工厂日历的问题。大意是工厂的财政年度为每年的10月1日开始到次年的9月30日，从所发的表格和图示来看，每月的结账日大约在月末的某个周五。版友yanwei82123300同志几番解释均不得要领，于是便引起了若干好事者（包括鄙人）进行哥德巴赫猜想。几经分析，在下以为这样的设计相对合理：会计的结账日期一般应在２０前后，且低于２０日的日数应该相对操过２０日的日数要少很多，也就是说最早的结账日不应该低于１８日。按照这个思路帮助版友yanwei82123300写了一个函数。为了进一步拓展版友yanwei82123300的思维，又按照倒数第二个周五为月末结账日写了一个函数。其实也不知道是否真的符合该同志的需要。

　　由这个问题可以看出，在程序的设计和开发过程中，需要对既有的管理习惯进行一个规范，使之具有规律，并且可以用程序体现出这个规律来。这个问题估计是开发中最难的事情，改变人的习惯很不容易。





又仔细看了一下图示，发现该图的规律应该为每季中月度的周数是按照445分配的（1月和12月除外），按照此规律，编写万年历如下：

todaynew

todaynew ；老师辛苦了！真是大公无私！！
yanwei82123300 发表于 2010-10-11 16:21

版主都是活雷锋。

yanwei82123300

todaynew ；老师辛苦了！真是大公无私！！

xuwenning

学习
谢谢分享

t小宝

不容易呀，老汉辛苦了!

ycxchen

还得向TODAYNEW学习写自定义函数！

todaynew

我觉得楼主的猜想还是有点距离
aslxt 发表于 2010-10-10 22:42

有道理，应该是第三个示例：





Function Calendar3(Ddate As Date) As String
'功能:每季度按445周的的工厂日历
Dim Mydate As Date
Dim str As String
Dim i As Long, j As Long, m
Mydate = DateSerial(Ddate - 1, 10, 1)
str = str & 1 & ";" & Mydate & ";"
If Weekday(Mydate, vbMonday) <> 6 Then
    Mydate = DateAdd("d", 21, Mydate)
    For j = 1 To 7
        If Weekday(Mydate, vbMonday) = 5 Then
                Exit For
        End If
        Mydate = DateAdd("d", 1, Mydate)
    Next
Else
    Mydate = DateAdd("d", 20, Mydate)
End If
str = str & Mydate & ";"
m = 0
For i = 1 To 4
    For j = 1 To 3
        m = m + 1
        If m = 12 Then Exit For
        If m <> 1 Then
            str = str & m & ";" & DateAdd("d", 1, Mydate) & ";"
            If j <> 3 Then
                Mydate = DateAdd("d", 28, Mydate)
            Else
                Mydate = DateAdd("d", 35, Mydate)
            End If
            str = str & Mydate & ";"
        End If
    Next
    If m = 12 Then Exit For
Next
str = str & m + 1 & ";" & DateAdd("d", 1, Mydate) & ";" & DateSerial(Ddate, 9, 30)
Calendar3 = str
End Function

li08hua

恭喜todaynew ！！！

aslxt

我觉得楼主的猜想还是有点距离

chenyingfengsx

佩服啊！