用窗体模仿日历控件

pp25258 · 发表于 2019-4-9 21:13

谢谢大师，我下载了

淡淡的邪 · 发表于 2019-6-23 15:14

亲爱的楼主大大，请问一下我想在ActiveCell.Value里加入选取的日期外还想加入时间比如00:00:00请问该怎么改，谢谢了。这个场景可以用在查询里比如我想查询2019/6/23 00:00:00 到 2019/6/23 23:59:59 这个时间段。谢谢

淡淡的邪 · 发表于 2019-6-24 13:39

爱疯发表于 2017-5-22 08:52
谢谢反馈！
我暂时想不出解决的方式，只有等待学习了！

大佬能不能把textbox对象作为参数传进去，然后把activecell.value改成textbox.text呢？这样行的通吗？每个textbox调用日历的时候，把自己作为参数传进去，返回值不就可以各自使用了吗？我是小萌新，求帮。谢谢给位大佬

lewis88 · 发表于 2019-6-24 18:03

利害了，谢谢分享

darrell · 发表于 2019-7-23 08:27

楼主，计算某年某月有多少天，有一个非常简单的办法，就是查询下一月的第0天的数值即可。
举例：计算2016年2月有多少天，即查询2016年3月0日的数值即可，在你的sub fresh()中，
将原来的：
n = howManyDays(y, m) '某年某月有多少天
修改成：
n = Day(DateSerial(y, m + 1, 0))

删除掉原来的两个函数（一个计算天数，一个判断闰年）
不谢！

爱疯 · 发表于 2019-9-20 11:02

本帖最后由爱疯于 2019-9-20 11:20 编辑

用窗体模仿日历控件_20190920.rar (23.98 KB, 下载次数: 688)

爱疯 · 发表于 2019-9-20 11:12

darrell 发表于 2019-7-23 08:27
楼主，计算某年某月有多少天，有一个非常简单的办法，就是查询下一月的第0天的数值即可。
举例：计算2016 ...

谢谢 darrell ！

我忘记这方法了，确实没必要用自定义函数，感谢提醒！

yulixia · 发表于 2019-10-11 22:15

爱疯发表于 2016-9-25 14:00
论坛升级后，可能有的附件不能下载，重新上传。

版主您好

，我想看看这个效果，可是不能下载呢

yulixia · 发表于 2019-10-11 22:18

爱疯发表于 2019-9-20 11:02

现在是啥情况啊，下载后，打开什么都没有，就是一片兰屏。好郁闷啊

爱疯 · 发表于 2019-10-11 22:41

yulixia 发表于 2019-10-11 22:18
现在是啥情况啊，下载后，打开什么都没有，就是一片兰屏。好郁闷啊

照1楼动画中的方法呢

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

[分享] 用窗体模仿日历控件

评分

评分