还是关于日历控件的使用问题（VBA）

Posted 2023-04-09

在网上学习了一会，代码改为： Private Sub Calendar1_Click() ActiveCell = Calendar1.Value Me.Calendar1.Visible = False End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Calendar1.Visible = True Calendar1.Left = Target.Left + Target.Width '设置日历控件弹出的列位置 Calendar1.Top = Target.Top + Target.Height '设置日历控件弹出的行位置 Calendar1.Value = Date '设置默认日期为系统日期 'Target.Column=1 ‘为你要显示日历的列号 If Target.Column = 1 And Target.Row <> 1 And Selection.Rows.Count = 1 And Selection.Columns.Count = 1 Then Me.Calendar1.Visible = True If Target.Value <> "" Then Me.Calendar1.Value = Target.Value Else Me.Calendar1.Value = Now() End If Else Me.Calendar1.Visible = False End If End Sub 一列ok了 问题： 1、我还要在13列的单元格里填日期。 2、当选中13列的单元格时，Calendar1控件在选定单元格的左边显示。（选第一列时，在第一列的右边显示） 请大侠帮忙，谢谢

参考技术A 例如dtpicker1
text1
=
dtpicker1.dayofweek
'显示日期的星期，
1为星期日
2为星期一
text2
=
dtpicker1.value
'显示显示日期，
.year
年份，月.month
日.day
时.hour。。。。
dtpicker1.format
'日期格式

关于日历的算法

相信很多前端的朋友都做过日历之类的一些控件什么的，其实核心的算法就是算月份的最后一天究竟是28、29、30还是31，这样的东西，可以看如下代码：

1.日历算法之“日”

 //根据参数一跟参数二的年月计算该月有多少天,返回就是该月的天数,
 // 一月份对0,二月份对应1,如此类推,是从0开始
 var countDays=function(year, month) {
    var days_in_months = new Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);//定义月份的数组，函数运行可以直接返回一个数值.
    if (1 == month) return ((0 == year % 4) && (0 != (year % 100))) || (0 == year % 400) ? 29 : 28;
    else return days_in_months[month];
 }

剩下的逻辑就很简单了，月份可以直接利用js的 ，

2.日历算法之“月”

 new Date().setMonth(arg)

需要注意的new Date()的month是从0开始的，这是比较怪异的。

这里还会有个技巧;arg=0 时是1月，arg=-1就是上一年的12月了。

 

3.日历算法之“年”

年份就不用说了，因为month直接加减可以得出年份了。

 

基本上结合这些小算法，你就可以在日历届称王称霸了。不谢