此主题相关图片如下：微信截图_20250306215033.png
' 声明日期变量
Dim startDate As Date
Dim endDate As Date
Dim currentDate As Date
' 尝试从输入框获取开始和结束日期
Try
startDate = CDate(e.Form.Controls("txtStartDate").Text)
endDate = CDate(e.Form.Controls("txtEndDate").Text)
Catch ex As Exception
' 如果转换失败，显示错误消息
e.Form.Controls("txtOutput").Text = "请输入有效的日期！"
Exit Sub
End Try
' 检查日期是否逻辑正确（开始日期不应大于结束日期）
If startDate > endDate Then
e.Form.Controls("txtOutput").Text = "开始日期不能大于结束日期！"
Exit Sub
End If
' 获取文本框控件
Dim txtOutput = e.Form.Controls("txtOutput")
' 清空文本框
txtOutput.Text = ""
' 生成日期并输出到文本框
currentDate = startDate
Do While currentDate <= endDate
txtOutput.Text = txtOutput.Text & currentDate & vbCrLf
currentDate = currentDate.AddDays(1)
Loop
[此贴子已经被作者于2025/3/6 21:53:55编辑过]
加好友 
发短信
Post By：2025/3/6 15:27:00 [只看该作者]
