Datetime VB脚本不返回任何值

我正在运行上面提到的VB脚本，它完成得很好，没有任何输出。我想要文本文件中的结果。我也无法在控制台中获得输出。

因为VBScript中没有

返回

，因此

Function NextMonthName(dateval)
    Dim tmp : tmp = DateAdd("m", 1, dateval)
    NextMonthName = MonthName(Month(tmp))
    return NextMonthName
    Wscript.Echo  NextMonthName 
    End Function

Function PrevMonthName(dateval)
    Dim tmp : tmp = DateAdd("m", -1, dateval)
    NextMonthName = MonthName(Month(tmp))
    return NextMonthName 
    End Function

将以失败告终

Option Explicit

Function NextMonthName(dateval)
    Dim tmp : tmp = DateAdd("m", 1, dateval)
    NextMonthName = MonthName(Month(tmp))
    return NextMonthName
End Function

WScript.Echo NextMonthName(Now)

（看起来您提出的问题基于包含全局“下一步错误恢复”的代码）

删除违规行-

...\31436343.vbs(6, 5) Microsoft VBScript runtime error: Variable is undefined: 'return'

解决问题：

Option Explicit

Function NextMonthName(dateval)
    Dim tmp : tmp = DateAdd("m", 1, dateval)
    NextMonthName = MonthName(Month(tmp))
End Function

WScript.Echo NextMonthName(Now)

---

由于VBScript中没有

返回

，因此

Function NextMonthName(dateval)
    Dim tmp : tmp = DateAdd("m", 1, dateval)
    NextMonthName = MonthName(Month(tmp))
    return NextMonthName
    Wscript.Echo  NextMonthName 
    End Function

Function PrevMonthName(dateval)
    Dim tmp : tmp = DateAdd("m", -1, dateval)
    NextMonthName = MonthName(Month(tmp))
    return NextMonthName 
    End Function

将以失败告终

Option Explicit

Function NextMonthName(dateval)
    Dim tmp : tmp = DateAdd("m", 1, dateval)
    NextMonthName = MonthName(Month(tmp))
    return NextMonthName
End Function

WScript.Echo NextMonthName(Now)

（看起来您提出的问题基于包含全局“下一步错误恢复”的代码）

删除违规行-

...\31436343.vbs(6, 5) Microsoft VBScript runtime error: Variable is undefined: 'return'

解决问题：

Option Explicit

Function NextMonthName(dateval)
    Dim tmp : tmp = DateAdd("m", 1, dateval)
    NextMonthName = MonthName(Month(tmp))
End Function

WScript.Echo NextMonthName(Now)

---

将输出写入文本文件

cscript 31436343.vbs
August

---

将输出写入文本文件

cscript 31436343.vbs
August

---

您如何称呼这些？致电NextMonthName（2015年7月15日）您如何称呼这些？致电NextMonthName（2015年7月15日）感谢您解决了问题，我得到了输出。但我希望输出格式类似于2015年8月，而不是8月。并将此输出写入文本file@ajayk-很明显，您的问题“VB脚本不返回任何值”并未涵盖这些新问题/规格。因此，创建两个新问题，至少显示出在解决这些问题上的一些努力。感谢这解决了问题，我得到了输出。但我希望输出格式类似于2015年8月，而不是8月。并将此输出写入文本file@ajayk-很明显，您的问题“VB脚本不返回任何值”并未涵盖这些新问题/规格。因此，提出两个新问题，至少展示出解决这些问题的一些努力。非常感谢你。正是我所期待的。完美！！！非常感谢你。我正处于学习阶段，将从这里开始学习。@ajayk在这种情况下，不要忘记将此答案标记为“已接受”，并欢迎使用stackoverflow，看看这一点以了解其工作原理==>结束函数'*********************************************************函数CurrMonthName（dateval）Dim tmp:tmp=DateAdd（“m”，0，dateval）CurrMonthName=MonthName（月（tmp））CurrMonthName=replace（CurrMonthName，“%M”，CurrMonthName）我正在尝试格式化月份名称，以便它显示前3个字母。搜索时发现%M可以使用。我试着在上面的代码中使用它，结果并不像预期的那样。这是另一个问题，你应该接受它作为答案，提出一个新的问题，并张贴你在新问题中尝试了什么代码确实张贴为新问题谢谢你这么多Hackoo。正是我所期待的。完美！！！非常感谢你。我正处于学习阶段，将从这里开始学习。@ajayk在这种情况下，不要忘记将此答案标记为“已接受”，并欢迎使用stackoverflow，看看这一点以了解其工作原理==>结束函数'*********************************************************函数CurrMonthName（dateval）Dim tmp:tmp=DateAdd（“m”，0，dateval）CurrMonthName=MonthName（月（tmp））CurrMonthName=replace（CurrMonthName，“%M”，CurrMonthName）我正在尝试格式化月份名称，以便它显示前3个字母。搜索时发现%M可以使用。我试着在上面的代码中使用它，结果并不像预期的那样。它仍然显示完整的月份这是另一个问题，你应该接受它作为答案，提出一个新问题，并发布你在新问题中尝试了什么代码确实发布为新问题