[原创][分享]通用日历拾取类(无须控件,公开源码)

ldhyob · 发表于 2005-8-14 14:56

在VBA编程中,常常会碰到需要用户进行日期型数据的选择,一般除了采用最普通的文本框加上代码检测外,用的最多的就是启用第三方控件,如Calendar Control和DTPicker Control(即Microsoft Date and Time Picker Control),但是用此类控件有时会遇到因控件文件缺失或版本问题而使文档无法正常使用.给我们带来一些麻烦.下面看看我抛开这些控件而自行制作的日历拾取类的运行状态: 4dOntRaj.rar (30.77 KB, 下载次数: 1904)

(VBA查看口令为ldhyob) 另：使用中，若用户不作任何选择，按ＥＳＣ键即可．

[此贴子已经被作者于2005-8-14 16:43:16编辑过]

是发地 · 发表于 2005-8-14 15:19

实在是高

紫蝶儿菲菲 · 发表于 2005-8-14 15:48

奇怪，偶不能下载呢。是不是偶是新来的啊？

来生缘 · 发表于 2005-8-14 16:01

有个问题，点了那个下拉箭头后，如果我不想选择日期，怎么退出呀

楼上的，可以下载的，不管新不新来的

ldhyob · 发表于 2005-8-14 16:01

以下是引用来生缘在2005-8-14 16:01:19的发言：
收藏

有个问题，点了那个下拉箭头后，如果我不想选择日期，怎么退出呀

楼上的，可以下载的，不管新不新来的

呵呵，按ＥＳＣ呀

紫蝶儿菲菲 · 发表于 2005-8-14 16:12

以下是引用来生缘在2005-8-14 16:01:19的发言：
楼上的，可以下载的，不管新不新来的

好像你给偶说过，关于更换头像的问题可能要有一定的发帖量才行的。是不是下载文件，也是有这样的限制呢？偶真的不可以下载的。

来生缘 · 发表于 2005-8-14 16:15

汗，忘了ESC

下载应该是没有限制的，我记得好像总版版式是这样说过的

头像是有限制

york888 · 发表于 2005-8-14 16:29

ldhyob版主，不断为我们奉献精华帖！受益非浅！其实版主每发一新帖我们就学习了不少知识！希望多发一点！

紫蝶儿菲菲 · 发表于 2005-8-14 16:36

谢谢 ldhyob 斑竹。下载使用，提示找不到工程或库

Private Sub UserForm_Initialize() Me.TextBox1.Text = Format(Date, "yyyy-mm-dd") 'Date关键字处提示错误。 Set DTPicker(1).DTText = Me.TextBox1 '挂接日历拾取类 Set DTPicker(2).DTText = Me.TextBox2 '挂接日历拾取类 End Sub

啥原因呢。

ldhyob · 发表于 2005-8-14 16:39

以下是引用紫蝶儿菲菲在2005-8-14 16:36:57的发言：
谢谢 ldhyob 斑竹。下载使用，提示找不到工程或库

Private Sub UserForm_Initialize() Me.TextBox1.Text = Format(Date, "yyyy-mm-dd") 'Date关键字处提示错误。 Set DTPicker(1).DTText = Me.TextBox1 '挂接日历拾取类 Set DTPicker(2).DTText = Me.TextBox2 '挂接日历拾取类 End Sub

啥原因呢。

这说明你的OFFICE未引用VBA库,把这个库引用上就行了,或者把代码改成vba.date

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

[原创][分享]通用日历拾取类(无须控件,公开源码)

评分