[已解决]求助写一个自定义函数

wingotoo · 发表于 2017-4-6 23:00

需求如下：1、一个自定函数：cyc
2、第一个参数：为一个时间值
第二个参数：一个自由设定的时间值作为计算的开始点
第三个参数：周期
3、例如在下面的公式中，2017-4-6是第一周，2017-4-12相对于4-6则是第二周（周期是6天），2017-4-1相对于4-6则是负第1周
其他同理

自定义函数.rar (6.27 KB, 下载次数: 1)

小新De和尚头 · 发表于 2017-4-7 09:38

CycFunction-AddIn-packed.rar (172 KB, 下载次数: 10)

liyizhe000 · 发表于 2017-4-7 09:47

有毒！打不开

小新De和尚头 · 发表于 2017-4-7 10:06

liyizhe000 发表于 2017-4-7 09:47
有毒！打不开

有毒？？请截图给我看看

liyizhe000 · 发表于 2017-4-7 10:25

C:\Users\Administrator\Desktop\1

liyizhe000 · 发表于 2017-4-7 10:34

我的动态截图咋发不上来

小新De和尚头 · 发表于 2017-4-7 10:34

liyizhe000 发表于 2017-4-7 10:25

你这个路径……我看不到……

huizhiaisha · 发表于 2017-4-7 10:39

Public Function fPeriod(rng, my_Date, iPeriod)
If (DateValue(my_Date) <= rng) Then '第
      iDay = Application.WorksheetFunction.Days360(my_Date, rng) + 1
      iCyc = iDay / iPeriod
      If iCyc > 1 Then
         If Int(iCyc) = iCyc Then
               fPeriod = "第" & Int(iCyc)
         Else
               fPeriod = "第" & Int(iCyc) + 1
         End If
      Else
         fPeriod = "第" & 1
      End If
Else                               '负第
      iDay = Application.WorksheetFunction.Days360(rng, my_Date) + 1
      iCyc = iDay / iPeriod
      If iCyc > 1 Then
         If Int(iCyc) = iCyc Then
            fPeriod = "负第" & Int(iCyc)
         Else
            fPeriod = "负第" & Int(iCyc) + 1
         End If

      Else
         fPeriod = "负第" & 1
      End If

End If

End Function

		自动登录	找回密码
密码			注册

[已解决]求助写一个自定义函数

评分