OpenCart之日历事件(Event Calendar)模块插件
特色功能：
1) 模块化安装；
2) 安装简单，容易使用；
3) 网站前台日历事件订阅功能；
4) 在网站后台对日历事件预定者进行导出；
5) 可以设定最多多少个预订者；
6) 可对日历事件添加图片；
7) 可对日历事件添加相关产品；
8) 支持1.5.4, 1.5.5, 1.5.5.1,1.5.6等版本。
演示地址：https://www.doczj.com/doc/d24237430.html,/index.php?route=information/contact 演示后台：https://www.doczj.com/doc/d24237430.html,/admin
用户名demo 密码demo
安装：
1. 解压缩后将admin和catalog文件上传到您的网站根目录，与网站原同名目录合并即可；
2. 修改文件\admin\controller\common\header.php
找到代码：
代码: 全选
$this->data['text_zone'] = $this->language->get('text_zone');
在其后添加：
代码: 全选
### Event Calendar - Start ###
$this->data['text_event'] = $this->language->get('text_event');
### Event Calendar - End ###
找到代码：
代码: 全选
$this->data['zone'] = $this->url->link('localisation/zone', 'token=' .
$this->session->data['token'], 'SSL');
在其后添加：
代码: 全选
### Event Calendar - Start ###
$this->data['event'] = $this->url->link('catalog/event&token=' .
$this->session->data['token'], 'SSL');
### Event Calendar - End ###
3. 修改文件\admin\language\english\common\header.php
在结束符号：
代码: 全选
'?>
前面添加如下代码：
代码: 全选
### Event Calendar - Start ###
$_['text_event'] = 'Events';
### Event Calendar - End ##
4. 修改文件\admin\view\template\common\header.tpl
找到代码：
在其后添加如下代码：
代码: 全选
5. 访问模块管理中的Event模块，点击安装Install；
6. 访问 System > Users > User Group，给相关管理员组设定相关event的权限；
7. 此时访问 Catalog > Events 就可以针对日历事件进行增删改等操作了。
1、选择excel的常规里选择显示开发工具 图表1 选择自定义工具栏 选择开发工具 图表2选择开发工具 2、选择插入-〉表单控件-〉其它 选择其它
图表3选择其它控件 图表4选择日历控件 3、双击界面控件，在‘通用’加入如下代码（注意：Target.Column = 4里的是指D列就是固 定的4列，G列是7列，而不是sheet里D，G列真实对应的第几列）： Private Sub Calendar1_Click() ActiveCell = Format(Calendar1.Value, "yyyy-mm-dd") '设置日期格式,此工作可以直接通过设置某列单元格格式一次性完成 Calendar1.Visible = False '单击日历控件后隐藏之 End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 4 Then 'D列为日期输入列，只对应excel的字母列，例如D对应4， 'G对应7，不是实际的显示列对应的数字 Calendar1.Left = Target.Left + Target.Width '设置日历控件弹出后的位置 Calendar1.Top = Target.Top + Target.Height '同上 Calendar1.Value = Date '设置默认日期为系统日期 Calendar1.Visible = True '使日历控件可见 ElseIf Target.Column = 5 Then 'E列为日期输入列 Calendar1.Left = Target.Left + Target.Width Calendar1.Top = Target.Top + Target.Height Calendar1.Value = Date Calendar1.Visible = True ElseIf Target.Column = 6 Then 'F列为日期输入列 Calendar1.Left = Target.Left + Target.Width Calendar1.Top = Target.Top + Target.Height Calendar1.Value = Date Calendar1.Visible = True Else
excel中实现日期选择输入（日历控件）推荐 第一种方法： 首先这个控件需要一个名为MSCOMCT2.OCX的控件文件,这个文件大家先在电脑里搜索一下,如果没有的话就求助baidu 喽. 下载下来后把它复制到c:\windows\system32里. 最后就在开始->运行里注册MSCOMCT2.OCX控件. 那么如何注册呢,方法很简单输入regsvr32 MSCOMCT2.OCX就ok拉 这时打开excel控件工具箱点击其它控件找到Microsoft Date and Time Picker Control 6.0,这个东东就是我们要的日期控件拉 第二种方法：MSCAL.OCX Private Sub Calendar1_Click() ActiveCell = Calendar1.Value Me.Calendar1.Visible = False End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) '此处的6和7为你要显示日历的列序号 If Target.Column = 6 Or Target.Column = 7 Then Me.Calendar1.Left = Target.Left Me.Calendar1.Top = Target.Top If Target.Value <> "" Then Me.Calendar1.Value = Target.Value Else Me.Calendar1.Value = Now() End If Me.Calendar1.Visible = True Else Me.Calendar1.Visible = False End If End Sub
1.Alt+F11 按下显示代码窗口后,再松开Alt+F11. 2.然后按F7 ,调出VBA 窗口。 3.粘贴以下代码. Private Sub Calendar1_Click() Dim MyDay As Date ActiveCell = Calendar1.Value Mydate = Calendar1.Value 'MsgBox Mydate Calendar1.Visible = 0 End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 Or Target.Column = 1 And Target.Row > 0 Then If IsDate(Target) Then Calendar1.Value = Target Else Calendar1.Today End If Calendar1.Visible = -1 Calendar1.Top = ActiveCell.Top + ActiveCell.Height Else Calendar1.Visible = 0 End If End Sub 4.打开文件→保存book1(S) 5.打开视图→对象窗口 6.打开插入→对象窗口 7.找到日历控件11.0或9.0，按确定退出。 8.单击第一列（A列）中的任一单元格，选择日历中的需要的日期即可。备注： 要改变日期输入位置，可按以下方法调整代码，找到下面的代码行（此代码行的意思是在A列（第1列）中添加日历。 If Target.Column = 1 Or Target.Column = 1 And Target.Row > 0 Then 然后根据以下的方法覆盖粘贴此行代码
E X C E L日历控件教程详 细 The pony was revised in January 2021
1.Alt+F11 按下显示代码窗口后,再松开Alt+F11. 2.然后按F7 ,调出VBA 窗口。 3.粘贴以下代码. Private Sub Calendar1_Click() Dim MyDay As Date ActiveCell = Mydate = 'MsgBox Mydate = 0 End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If = 1 Or = 1 And > 0 Then If IsDate(Target) Then = Target Else
End If = -1 = + Else = 0 End If End Sub 4.打开文件→保存book1(S) 5.打开视图→对象窗口 6.打开插入→对象窗口 7.找到日历控件或，按确定退出。 8.单击第一列（A列）中的任一单元格，选择日历中的需要的日期即可。备注：
要改变日期输入位置，可按以下方法调整代码，找到下面的代码行（此代码行的意思是在A列（第1列）中添加日历。 If = 1 Or = 1 And > 0 Then 然后根据以下的方法覆盖粘贴此行代码 1.以下这一句就是 B3:C5区域调用日期控件. If = 2 And > 2 And < 6 Or = 3 And > 2 And < 6 Then 2.这句是说在第 2列和第 3列调用日期控件. If = 2 Or = 3 And > 0 Then 3.这句是说在C2:C50调用日期控件. If = 3 And > 1 And < 51 Then
方正日历插件使用说明 年年都要做日历或年历，有句话说的好，“年年岁岁人相似，岁岁年年花不同”。现在很多人做日历最简单的方法就是从网上去找别人提供的模版，然后再手工进行调整，既麻烦又没有个性，要是幸运能够找到AI和CDR的源文件还可以发挥一下，要是个图片就只能妄图兴叹了，更别说后期的制作和排版了。 现在有了方正排版软件标配的日历插件，嘿！嘿！手不累了，脑袋也不疼了。想做哪年做哪年，想做哪个月做哪个月，日历插件可自动生成年历、月历和周历，根据个性化的需要还可以方便地制作不同的样式，存为模版重复使用。再结合方正排版软件强大的排版设计能力，发挥您的创意，就可以制作属于自己的个性化日历。 1 日历插件的基本操作方法 选择“版面”|“日历插件”，弹出日历插件界面，如图1所示。 图1 日历插件界面 1.1 日历设置 在制作之前，先要对日历进行设置。在日历插件对话中选择“日历设置”选项卡。 在“日历设置”中，可以对日历的方案进行选择，还可以选择项目进行各项目的详细设置等等，如图所示。
图2 日历设置 1.2 日历制作 设置好日历后，可以选择“日历制作”选项卡开始日历的制作。 图3 日历制作 （1）在“月”下拉列表中选择全年，则激活月间距设置，单击“月间距设置”按钮则
弹出“月间距”对话框，设置月行数为3行。 （2）单击“节日设置”按钮则弹出“节日设置”对话框，如图所示，可以采用默认的节日，也可以添加节日，满足个性化需求。 图4 节日设置 （3）确定后在版面单击生成日历，再给日历添加一些文字润色，一份精美的日历就展现在面前了，如图所示。 图5 日历
1.3 日历输出 制作的日历文件可以保存为排版软件的文件格式；也可以通过输出功能将日历输出为图片或PDF文件格式。 单击“文件”|“输出”，弹出输出对话框，如图所示，可以把日历输出为PS、PDF、EPS、JPG和TXT格式。 图6 输出格式 2 日历制作的相关操作 点击日历插件中的“日历制作”选项卡，弹出日历制作界面，如图7所示。
选择日期Excel日历控件将日期插入到指定单元格 在Excel中如何实现选择日历控件，就将日期插入到指定的单元格？ 请跟随如下操作； 在EXCEL窗口中执行“视图”→“工具栏”→“控件工具箱”；弹出如下图对话框； 按上图的操作，找到“日历控件11.0”，之后在EXCEL窗口中使用鼠标左键一拖，拖出如下图的控件；
上图，我们要实现的结果是：在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期之后，日期自动插入到单元格；除C列之外，点击其他列的单元格，不会弹出日历选择控件； 要想实现这样的效果，得使用VBA来实现； 选择日历控件，鼠标左键双击，进入代码编辑模式；如下图！ 上图中，第一个过程代码就是日历控件所需要的代码，另外，还得需要另外一个代码，在图中按红线圈住部分选择，找到对应的过程，输入如下的VBA代码即可！ 完成之后，直接运行VBA代码，返回EXCEL操作窗口，即可实现效果了！ 如上图，C3单元格已插入了日期，当你选择C列其他单元格时，就弹出日历控件，以供选择，选择完成，即可插入日期了！ 为方便操作，提供源代码： Private Sub Calendar1_Click() ActiveCell = Calendar1.Value Me.Calendar1.Visible = False End Sub Private Sub Worksheet_SelectionChange(ByVal T arget As Range) If Target.Column = 1 Then Me.Calendar1.Visible = True Else Me.Calendar1.Visible = False End If End Sub 新建文本文档.txt 最新文件仅供参考已改成word文本。方便更改
* (0)只选择年份 * (1)只选择月份 * (2)只选择日期 * (3)选择日期和小时 * (4)选择日期和小时及分钟 * (4)选择日期和小时及分钟默认时间00:00 *设置参数的方法 * (1)设置日期分隔符setDateSplit(strSplit);默认为"-" * (2)设置日期与时间之间的分隔符setDateTimeSplit(strSplit);默认为" " * (3)设置时间分隔符setTimeSplit(strSplit);默认为":" * (4)设置(1),(2),(3)中的分隔符setSplit(strDateSplit,strDateTimeSplit,strTimeSplit); * (5)设置开始和结束年份setYearPeriod(intDateBeg,intDateEnd) * (6)checkSec(t1,t2,s)==>t1,t2为两个时间框对像,s为相差的时间,默认为秒,输入年格式为"2y",输入月格式为"2m",以此类推. *说明： * 默认返回的日期时间格式如同：2005-02-02 08:08 */ //------------------ 样式定义---------------------------// //功能按钮同样样式 var s_tiannet_turn_base = "height:16px;font-size:9pt;color:white;border:0 solid #CCCCCC;cursor:hand;background-color:#2650A6;"; //翻年、月等的按钮 var s_tiannet_turn = "width:28px;" + s_tiannet_turn_base; //关闭、清空等按钮样式 var s_tiannet_turn2 = "width:22px;" + s_tiannet_turn_base; //年选择下拉框 var s_tiannet_select = "width:64px;display:none;"; //月、时、分选择下拉框 var s_tiannet_select2 = "width:46px;display:none;"; //日期选择控件体的样式 var s_tiannet_body = "width:150;background-color:#2650A6;display:none;z-index:9998;position:absolute;margin:10px ;" + "border-left:1 solid #CCCCCC;border-top:1 solid #CCCCCC;border-right:1 solid #999999;border-bottom:1 solid #999999;"; //显示日的td的样式 var s_tiannet_day = "width:21px;height:20px;background-color:#D8F0FC;font-size:10pt;"; //字体样式 var s_tiannet_font = "color:#FFCC00;font-size:9pt;cursor:hand;"; //链接的样式 var s_tiannet_link = "text-decoration:none;font-size:9pt;color:#2650A6;";
Calendar控件 Calendar控件功能： 显示一个日历，该日历会显示一个月份 允许用户选择日期、周、月 允许用户选择一定范围内的日期 允许用户移到下一月或上一月 以编程方式控件选定日期的显示 Calendar最重要的属性 名称说明 Caption 显示在日历上方的文本（标题） CaptionAlign 指定标题的垂直和水平对齐方式 CellPadding 边框和单元格之间的以像素为单位的间距。默认为2（注意不要加单位）CellSpacing 单元格间以像素为单位的间距。默认值为0 DayNameFormat 一周中每一天的格式。默认为Short FirstDayOfWeek 在第一列显示的一周的某一天，默认值由系统设置指定 NextMonthText 下一月份的导航按钮的文本。默认为大于号(>) NextPrevFormat 在NextMont-hText和PrevMonth-Text中指定使用的文本 PrevMonthText 上一月份的导航按钮的文本。默认为小于号(<)。 SelectedDate 一个选定的日期。只保留日期，时间为空 SelectedDates 选择多个日期后的DateTime对象的集合。只保存日期，时间为空SelectedDates.Count 选择了选择了日期的数量 SelectionMode 在本节的后面描述 SelectMonthText 选择器列中月份选择元素显示的文本。默认为两个大于号(>>)。ShowDayHeader 是否在日历标题中显示一周中每一天的名称。默认为true ShowGridLines 如果为true，显示单元格之间的网格线。默认为false ShowNextPrevMonth 指定是否显示上个月和下个月导航元素。默认为true ShowTitle 指定是否显示标题(上个月和下个月导航元素)。 TitleFormat 指定标题是显示为月份，还是同时显示月份和年份.默认为MonthYear另一属性为month TodaysDate 今天的日期 UseAccessibleHeader 指示是否使用可通过辅助技术访问的标题 VisibleDate 显示月份的任意日期 在Calendar中选择日期 如果需要让用户可以选择一天、一周或一个月，则必须设置SelectionMode属性。
源码如下： 1. 2. 3.
4. 5.