标题：如何根据2个已知日期生成批量的日期？

1楼

lgz518 发表于：2025/3/6 15:27:00

如何根据2个已知日期生成批量的日期？如图

此主题相关图片如下：日期.jpg

2楼

有点蓝 发表于：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

3楼

vbmic 发表于：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编辑过]

共3 条记录, 每页显示 10 条, 页签: [1]