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

yanwei82123300

REQD_WEEK: CDbl(IIf([REQD_DATE]>#2008-9-30# And [REQD_DATE]<#2009-1-1#,Str(Format((200848+13+Format([REQD_DATE],"ww")))),IIf([REQD_DATE]>=#2009-1-1# And [REQD_DATE]<#2009-10-1#,Str(Format((200900+13+Format([REQD_DATE],"ww")))),IIf([REQD_DATE]>#2009-9-30# And [REQD_DATE]<#2010-1-1#,Str(Format((200900+61+Format([REQD_DATE],"ww")))),IIf([REQD_DATE]>=#2010-1-1# And [REQD_DATE]<#2010-10-1#,Str(Format((201000+13+Format([REQD_DATE],"ww")))),IIf([REQD_DATE]>=#2010-10-1# And [REQD_DATE]<#2011-1-1#,Str(Format((201000+61+Format([REQD_DATE],"ww")))),IIf([REQD_DATE]>=#2011-1-1# And [REQD_DATE]<#2011-10-1#,Str(Format((201100+13+Format([REQD_DATE],"ww")))),Str(Format((201100+61+Format([REQD_DATE],"ww")))))))))))

yanwei82123300

由于我公司是将每年的10-1为工厂新年，到下一年的9-30为年底

咱家是猫

你试下下面的对不对

1. Function GetDate(d As Date) As Double
   
2. 
   
3. Dim s
   
4. Dim td As Date
   
5. td = d + (DateSerial(Year(d), 12, 31) - DateSerial(Year(d), 9, 1))
   
6. s = Year(td) & Format(Format(td, "ww"), "00")
   
7. GetDate = CDbl(s)
   
8. 
   
9. End Function
   

复制代码

yanwei82123300

谢谢猫老师，请帮助解释一下可以吗？

咱家是猫

应该再简练些
其实就是一句

1. 
   
2. Function GetDate(d As Date) As String
   
3.     GetDate = Year(d + 92) & Format(Format(d + 92, "ww"), "00")
   
4. End Function
   
5. 
   

复制代码

这个日期你想得有点太绕弯了.其实就是把原日期加多92天(10月11月12月三个月的总天数)来计算.