vb日期赋值问题

答案:3 悬赏:30

解决时间 2021-11-09 07:40

提问者网友：騷女、無惡不作
2021-11-08 19:20

CSRQ = InputBox("输入日期") & vbCrLf & ("格式：yyyy-mm-dd")
在inputbox输入日期时一定要按格式来输入是怎么写什么到什么位置？

最佳答案

二级知识专家网友：时光挺欠揍
2021-11-08 19:58

您问的大概是这个吧：怎么样保证输入的是日期。
注意代码中的问题：InputBox 函数的参数值变成了"输入日期"，后面的直接省略了……
用这个方法：

Dim DateRet As Date
Do
CSRQ = InputBox("输入日期" & vbCrLf & "格式：yyyy-mm-dd")
Loop Until IsDate(CSRQ)
DateRet = DateValue(CSRQ)

这样，就可以使用 DateRet 来读取输入的日期信息了。

全部回答

1楼网友：懂得ㄋ、沉默
2021-11-08 21:56

如果一定要按规定的格式（yyyy-mm-dd）来输入，可以这样： Do csrq = InputBox("输入日期" & vbCrLf & "格式：yyyy-mm-dd") Loop Until csrq Like "####-##-##"

2楼网友：啵啵桃汀
2021-11-08 20:38

private sub form_click() a = 2009 b = 2 c = 11 d = a & "-" & b & "-" & c print d, typename(cdate(d)) end sub

我要举报

如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！