VB自定义日期控件的笔记
发布时间:2020-12-16 23:06:16 所属栏目:大数据 来源:网络整理
导读:1, Select Case Month(dates) '得到各月份天数 Case 1,3,5,7,8,10,12 r = 31 Case 4,6,9,11 r = 30 Case 2 If Year(dates) Mod 4 = 0 And Year(dates) Mod 100 0 Or Year(dates) Mod 400 = 0 Then r = 29 Else '闰年判断,是闰年则2月份为29天,否则28 r =
1, 2,
3,
4, 总结: 初始化6*7的二维数组,确定当前月的天数和当月1号的星期,可用循环来实现,同时标注颜色,如过期灰色,当日红色等。label点击事件前判断颜色,过期则不可用。 代码总结与记录,仅供个人参考,未优化,效率低下是目前主要的问题。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |