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

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"))))))))))))

LeeTien

这哪叫查询啊，这叫判断！
想重用就用函数，不叫模块，建议你去书店抱本书回来好好啃啃，再做开发，不然一知半解的人家跟你讲都很难！
函数定义如下：
Option Compare Database

Function GetP(A As Date) As String

    Dim Re As String
    If A >= CDate("2009-10-1") And A <= CDate("2009-10-24") Then
         Re = "P1"
    ElseIf A >= CDate("2009-10-25") And A <= CDate("2009-11-21") Then
        Re = "P2"
    ElseIf     then
   
    ----------
    Else

   End If
        
End Function
剩下的你自己添加吧，使用时只需引用：GetP(日期)。希望你能举一反三，弄通函数。

yanwei82123300

汗！菜鸟就是菜鸟，专家就是专家，需要反思，谢谢帮助

yanwei82123300

LeeTien 老师好像没有反应呀

yanwei82123300

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

yanwei82123300

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

ygtq

很值得学习

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中去了

yanwei82123300

谢谢帮助

咱家是猫

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