[分享]在窗体的文本框中实现日期的输入的几种方法

foshan · 发表于 2005-7-23 13:24

按 plxmm 的想法做了一个示例，但感觉太麻烦了，代码也没有进行优化，上传上来让大家借鉴一下。

谢谢清风兄详尽的介绍，正在研究中。

上传的附件中，还有一个问题没有解决：当年份的文本框小于四位数时，当失去焦点后，出现提示，然后年份的文本框重新获得焦点(也就是光标仍然在年份的文本框中)怎么实现？ GN7OIrAA.rar (12.05 KB, 下载次数: 162)

[此贴子已经被作者于2005-7-23 13:33:28编辑过]

taller · 发表于 2005-7-23 13:48

换个思路用combobox实现选择,下面只是示例,正式使用要考虑日期Combo根据选择的月份变化,示例中对日期进行判断,如果比当前日期早,会有提示,不知道是否能符合楼主的要求

odjU0Iy1.zip (8.11 KB, 下载次数: 385)

山菊花 · 发表于 2005-7-23 14:36

可以限制日期大小。但格式上没有好的想法。

zpfBjZeW.rar (9.26 KB, 下载次数: 220)

foshan · 发表于 2005-7-23 15:36

以下是引用taller在2005-7-23 13:48:14的发言：
换个思路用combobox实现选择,下面只是示例,正式使用要考虑日期Combo根据选择的月份变化,示例中对日期进行判断,如果比当前日期早,会有提示,不知道是否能符合楼主的要求

还是存在问题：比如1、3、5月份有31日，2月份有28日，闰年有29日，这些均不能进行错误判断。

cofe2000 · 发表于 2005-7-23 15:38

可以在月份的change事件中对日进行判断的啊

foshan · 发表于 2005-7-23 15:47

再次求助：传的附件中，当年份的文本框小于四位数时，当失去焦点后，出现提示，然后年份的文本框重新获得焦点(也就是光标仍然在年份的文本框中)怎么实现？

5DWnKLVc.rar (12.05 KB, 下载次数: 88)

zz5151353 · 发表于 2005-7-23 15:47

不錯,下載研究一下,謝謝清風大師提供 !!!

[此贴子已经被作者于2005-7-23 15:49:21编辑过]

cofe2000 · 发表于 2005-7-23 15:59

按理说用SetFocus应该可以的，不知怎么回事[em06]

taller · 发表于 2005-7-23 16:24

以下是引用foshan在2005-7-23 15:36:36的发言： 还是存在问题：比如1、3、5月份有31日，2月份有28日，闰年有29日，这些均不能进行错误判断。

我的帖子上已经说了,那只是个示例--"下面只是示例,正式使用要考虑日期Combo根据选择的月份变"

foshan · 发表于 2005-7-23 16:49

请教 jack.zhou 老师： If IsDate(Val(TextBox1.Value) & "-" & Val(TextBox2.Value) & "-" & Val(TextBox3.Value)) = False Then 是什么意思？

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