2024年4月3日发(作者：)

vbs请假代码

以下是一份VBScript请假代码，供参考：

Dim startDate, endDate, reason

startDate = InputBox('请输入请假开始日期（格式：

YYYY-MM-DD）：')

If startDate = '' Then

End If

endDate = InputBox('请输入请假结束日期（格式：YYYY-MM-DD）：

')

If endDate = '' Then

End If

reason = InputBox('请输入请假原因：')

If reason = '' Then

End If

MsgBox '您的请假信息如下：' & vbCrLf & '开始日期：' &

startDate & vbCrLf & '结束日期：' & endDate & vbCrLf & '请假

原因：' & reason

'在这里可以将请假信息写入数据库或者发送邮件给上级领导等

相关操作。

- 1 -

- 2 -