gungnir12138 2023-05-12 22:11 采纳率: 100%
浏览 6
已结题

vbs这里一直显示第八行类型不匹配，求解答应该怎样改？

Option Explicit

Dim today, year, month, day

today = Date

'从当前日期中提取年、月、日信息
year = Year(today)
month = Trim(CStr(Month(today))) '使用Trim函数删除前面的空格，并将数值类型转换为字符串类型
day = Trim(CStr(Day(today))) '同上

'判断当天是否是6月1日
If month = "6" And day = "1" Then
    '如果是，弹出“儿童节快乐”的消息框
    MsgBox "儿童节快乐！"
End If

这里一直显示第八行类型不匹配，求解答应该怎样改？

  • 写回答

1条回答 默认 最新

  • threenewbee 2023-05-12 22:45
    关注

    today = Date(Now())

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题？

问题事件

  • 系统已结题 6月15日
  • 已采纳回答 6月7日
  • 创建了问题 5月12日

悬赏问题

  • ¥15 编辑cmake lists 明明写了project项目名，但是还是报错怎么回事
  • ¥15 关于#计算机视觉#的问题：求一份高质量桥梁多病害数据集
  • ¥15 特定网页无法访问，已排除网页问题
  • ¥50 如何将脑的图像投影到颅骨上
  • ¥15 提问一个关于vscode相关的环境配置问题，就是输入中文但是显示不出来，代码在idea可以显示中文，但在vscode不行，不知道怎么配置环境
  • ¥15 netcore使用PuppeteerSharp截图
  • ¥20 这张图页头，页脚具体代码该怎么写？
  • ¥15 关于#sql#的问题，请各位专家解答！
  • ¥20 WPF MVVM模式 handycontrol 框架， hc:SearchBar 控件 Text="{Binding NavMenusKeyWords}" 绑定取不到值
  • ¥15 需要手写数字信号处理Dsp三个简单题 不用太复杂