使用 msxsl:script 从 XSLT 中使用 VBScript 扩展函数时出现错误“公共函数年（DateValue As Date）为整数”[重复]

Question

这个问题在这里已经有了答案：

我如何获得日期和时间 (VBS) (7 个回答)

20 天前关闭。

我在 XSLT 中有以下 VBScript：

<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
            xmlns:msxsl="urn:schemas-microsoft-com:xslt"
            xmlns:user="http://www.global-health.com"
            >


<msxsl:script language="VBScript" implements-prefix="user">

<![CDATA[
  ...
Function Today()
  Today= year(Date) & "-" & LeadNumWith0(month(Date)) & "-" & LeadNumWith0(day(Date))      
End Function
]]>
  </msxsl:script>
</xsl:stylesheet>

如果我使用 VS 2019 XSLT 调试器来执行上面的样式表，我会得到一个错误：“公共函数年（DateValue As Date）As Integer”没有类型参数，因此不能有类型参数。 如果我将函数 Date 更改为 Now，它会起作用，Date 和 Now 都是有效的 VBScript 函数，为什么 Date 不起作用？

Answer 1

在 VBScript 中，使用Now获取当前日期：

Today = Year(Now) & "-" & Right("0" & Month(Now), 2) & "-" & Right("0" & Day(Now), 2)