昏暗的闰年，VBScript

Question

我有一系列用 VBScript 计算的比率，其中包含一年中的总天数。对于 2016 年，我们需要使用“366”天，而不是正常的“365”。

我创建了一个 Dim 变量来根据年份进行填充，但很明显该脚本不起作用，而是归零。

VB脚本：

'/ Adding YrDays to account for Leap Years'/
If POV_Year = "2012" OR "2016" OR "2020" OR "2024" OR "2028" Then 
    YrDays = "366" 
    Else YrDays = "365" 
End If

HS.Exp "A#Ratio007.C1#[None]" & DynC1 & " =  
((A#Tohinc" & Tops & " * (YrDays / A#numberdays.E#PVTB Admin))  
/ (A#Totass" & Tops &")) * 100" 

当我将业务规则上传到 Oracle HFM 时，VBScript 上传没有错误，但无法计算比率。

HFM 中没有 YrDays 的帐户，因为我想在合并和计算期间计算值（YrDays）。我已验证 POV_Year、Numberdays 和其他值是否正确加载。

知道我可能做错了什么吗？

软件： 甲骨文 HFM 11.1.2.3.500 在Notepad++中编辑VBScript Rule.rle文件

编辑： 这是我采用的解决方案：

'/ Adding YrDays to account for Leap Years'/
SELECT CASE POV_YEAR
 CASE "2012", "2016", "2020", "2024", "2028"
 YrDays = 366
 Case Else
 YrDays = 365 
End Select

我还需要更改公式中引用 YrDays 的方式，我应该知道它需要放在引号中才能在计算中引用。

HS.Exp "A#Ratio007.C1#[None]" & DynC1 & " =  
((A#Tohinc" & Tops & " * ("& YrDays & "/ A#numberdays.E#PVTB Admin))  
/ (A#Totass" & Tops &")) * 100" 

Answer 1

您的代码可能会更好作为 Select Case 语句。

Select Case POV_Year
    Case 2012, 2016, 2020, 2024, 2028
        YrDays = 366 
    Case Else
        YrDays = 365 
End Select

但是，可能还有更简单的方法。

'/ Adding YrDays to account for Leap Years'/
YrDays = DateSerial(POV_Year + 1, 1, 1) - DateSerial(POV_Year, 1, 1)
'alternate
YrDays = 365 - (POV_Year = 2012 Or POV_Year = 2016 Or POV_Year = 2020 Or POV_Year = 2024 Or POV_Year = 2028)

我已经删除了引用的数字；数字应保留为数字。但是

"2016"

不等于

2016

，因此您可能必须将它们放回原处或调整其余代码。您可以将一个真实的数字连接成一个字符串。

Answer 2

如果年份（日期）mod 4 = 0 则 YrDays = 366 否则 YrDays = 365