请老师帮助将这个查询转换成模块，谢谢

yanwei82123300

FISHER_P月（工厂日历：2009-10-01~2010-09-30为1年）
dd: IIf([A]>=CDate("2009-10-1") And [A]<=CDate("2009-10-24"),"P1",IIf([A]>=CDate("2009-10-25") And [A]<=CDate("2009-11-21"),"P2",IIf([A]>=CDate("2009-11-22") And [A]<=CDate("2009-12-26"),"P3",IIf([A]>=CDate("2009-12-27") And [A]<=CDate("2010-01-23"),"P4",IIf([A]>=CDate("2010-01-24") And [A]<=CDate("2010-02-20"),"P5",IIf([A]>=CDate("2010-02-21") And [A]<=CDate("2010-03-27"),"P6",IIf([A]>=CDate("2010-03-28") And [A]<=CDate("2010-04-24"),"P7",IIf([A]>=CDate("2010-04-25") And [A]<=CDate("2010-05-22"),"P8",IIf([A]>=CDate("2010-05-23") And [A]<=CDate("2010-06-26"),"P9",IIf([A]>=CDate("2010-06-27") And [A]<=CDate("2010-07-24"),"P10",IIf([A]>=CDate("2010-07-25") And [A]<=CDate("2010-08-21"),"P11",IIf([A]>=CDate("2010-08-22") And [A]<=CDate("2010-09-30"),"P12"))))))))))))

咱家是猫

谢谢猫老师的帮助，但是每个月的结账月并不是每月的月初到月末，能否做一个动态的？谢谢
yanwei82123300 发表于 2010-2-22 08:21

噢,这个我没有留意,我刚才看了下,好象跨度也没随意,没什么规律哟.

yanwei82123300

谢谢猫老师的帮助，但是每个月的结账月并不是每月的月初到月末，能否做一个动态的？谢谢

咱家是猫

92为10月11月12月三个月的总天数

咱家是猫

Function yy(d As Date) As String
    yy= "P"& Month(d + 92)
End Function

yanwei82123300

谢谢帮助

zyp

Function GetP(A As Date) As String

    Dim Re As String
    If A >= CDate("2009-10-1") And A <= CDate("2009-10-23") Then
         Re = "P1"
    ElseIf A >= CDate("2009-10-24") And A <= CDate("2009-11-20") Then
        Re = "P2"
    ElseIf A >= CDate("2009-11-21") And A <= CDate("2009-12-25") Then
        Re = "P3"
    ElseIf A >= CDate("2009-12-26") And A <= CDate("2010-01-22") Then
        Re = "P4"
    ElseIf A >= CDate("2010-01-23") And A <= CDate("2010-02-19") Then
        Re = "P5"
    ElseIf A >= CDate("2010-02-20") And A <= CDate("2010-03-26") Then
        Re = "P6"
    ElseIf A >= CDate("2010-03-27") And A <= CDate("2010-04-23") Then
        Re = "P7"
    ElseIf A >= CDate("2010-04-24") And A <= CDate("2010-05-21") Then
        Re = "P8"
    ElseIf A >= CDate("2010-05-22") And A <= CDate("2010-06-25") Then
        Re = "P9"
    ElseIf A >= CDate("2010-06-26") And A <= CDate("2010-07-23") Then
        Re = "P10"
    ElseIf A >= CDate("2010-07-24") And A <= CDate("2010-08-20") Then
        Re = "P11"
    ElseIf A >= CDate("2010-08-21") And A <= CDate("2010-09-30") Then
        Re = "P12"
    Else
    End If
   
    GetP = Re

End Function

关键是你将GetP=Re 这行写到if...end if中去了

ygtq

很值得学习

yanwei82123300

请大家给看看，挺着急的，谢谢

yanwei82123300

LeeTien 老师我将例子上传了请帮助修改一下，谢谢