窗体数值调节控件控制日期连续天数增减

cnxwj · 发表于 2021-7-28 23:17

本帖最后由 cnxwj 于 2021-7-29 11:01 编辑

各位好，在窗体添加数值按钮对日期进行调节，目前只实现前后1天的微调，如要连续调整，请问如何实现？详见附件。谢谢！Private Sub SpinButton1_SpinDown() '当前日期减1天
TextBox1 = Date - 1
End Sub

Private Sub SpinButton1_SpinUp() '当前日期增1天
TextBox1 = Date + 1
End Sub

窗体数值调节控件.zip (21.99 KB, 下载次数: 4)

梦幻的流星 · 发表于 2021-7-29 02:17

窗体数值调节控件.zip (24.46 KB, 下载次数: 11)

一指禅62 · 发表于 2021-7-29 09:11

是不是这个意思？

一指禅62 · 发表于 2021-7-29 09:31

最省事的代码

Private Sub SpinButton1_Change()
TextBox1.Text = Format(SpinButton1.Value, "yyyy-mm-dd")
End Sub
Private Sub UserForm_Initialize()
With SpinButton1
.Min = Date
.Max = Date + 23
End With
SpinButton1_Change
End Sub

复制代码

一指禅62 · 发表于 2021-7-29 09:33

代码审核，只好又截图了

代码.png

cnxwj · 发表于 2021-7-29 10:59

梦幻的流星发表于 2021-7-29 02:17

谢谢帮助，代码不足之处：不能将日期往前调，往后调没有问题

cnxwj · 发表于 2021-7-29 11:00

一指禅62 发表于 2021-7-29 09:11
是不是这个意思？

谢谢，这个正是我想要的效果

梦幻的流星 · 发表于 2021-7-29 11:13

可以调节Sp控件最小值的

		自动登录	找回密码
密码			免费注册

[已解决] 窗体数值调节控件控制日期连续天数增减

评分

评分

最新热点 /1