- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何根据2个已知日期生成批量的日期？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=195752)
-- 发布时间：2025/3/6 15:27:00
-- 如何根据2个已知日期生成批量的日期？
如何根据2个已知日期生成批量的日期？如图
此主题相关图片如下：日期.jpg
-- 发布时间：2025/3/6 15:47:00
--
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=185217&skin=0
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=185284&skin=0
-- 发布时间：2025/3/6 21:53:00
--
此主题相关图片如下：微信截图_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编辑过]