组态王应用日历控件的使用

微软日历控件在组态王中的使用

配置参考文档

北京亚控科技发展有限公司

技术部

目录

一、需求概述 (3)

二、操作步骤： (3)

1、新建工程： (3)

2、定义变量： (3)

3．制作画面： (3)

3.1) 创建画面： (3)

3.2) 控件属性介绍： (3)

3.3) 控件使用： (5)

4.进入运行系统： (9)

三、注意事项 (10)

图表

图一插入日历控件 (4)

图二控件属性 (4)

图三控件 (4)

图四控件的动画连接属性 (5)

图五控件事件函数 (6)

图六选择控件属性 (6)

图七控件函数CloseUp1() (8)

图八控件函数Change1() (9)

图九日历控件画面 (9)

图十运行系统 (10)

一、需求概述

常规需求：日期、时间在许多工程中都会用到，如何利用微软提供的标准日历控件来方便的获得日期、时间等？

微软提供的标准日历控件“Microsoft Date and Time Picker Control 6.0”可以提供日期、时间两种格式，通过此控件我们可以获得日期、时间、星期。

二、操作步骤：

1、新建工程：

新建一个工程。

2、定义变量：

在组态王中定义7个内存整数变量：年、月、日、时、分、秒、星期，新建2个内存字符串变量：日期、时间。

3．制作画面：

3.1) 创建画面：

新建画面，画面名称“日历控件”。点击工具箱的“插入通用控件”，选择“Microsoft Date and Time Picker Control 6.0”，如图一所示：点击“确定”后，鼠标变成十字形。然后在画面上画一个矩形框，日历控件就放到画面上了。双击画面的日历控件，为控件命名为：“ADate”。同样的方法再创建一个日历控件，双击控件为控件命名为“ATime”，选中ATime控件，点击鼠标右键，弹出快捷菜单，选择“控件属性”，弹出控件属性对话框，如图二所示：在通用选项卡中对控件的“格式”进行设置，格式有四种，我们选择“2－dtpTime”，选择完成后我们点击“确定”，ATime控件就由日期变为时间了。如图三所示：

3.2) 控件属性介绍：

主要使用到的是控件的几个属性和事件：

属性：Day、Month、Year 、DayOfWeek、Hour、Minute、Second、Enabled

事件：Change()、CloseUp()

Change()事件主要在选择时间的时候使用。

CloseUp()事件主要在选择日期的时候使用。

Enabled属性控制此控件是否允许被使用。

图一插入日历控件

图二控件属性

图三控件

3.3) 控件使用：

双击“ADate”控件，弹出动画连接属性，选择“事件”选项卡，如图四所示：双击“CloseUp”事件的关联函数，弹出控件事件函数编辑框，如图五所示：在函数声明处为函数命名，如“CloseUp1()”，在命令语言编辑框中编写脚本程序对选择的日期进行处理，点击编辑窗口下方的“控件”按钮，弹出“控件属性和方法”对话框，在“控件名称”处选择我们的日历控件，名称为“ADate”，在“查看类型”处选择“控件属性”，在“属性或方法”项中选择“Year”，如图六所示：点击“确定”，可以将选择的属性添加到编辑框中。根据此方法，在控件的事件编辑框中编写脚本程序如图七所示。

图四控件的动画连接属性

图五控件事件函数

图六选择控件属性

脚本程序：

string temp;

\\本站点\年=ADate.Year;

\\本站点\月=ADate.Month;

\\本站点\日=ADate.Day;

\\本站点\周=ADate.DayOfWeek;

temp=StrFromInt( \\本站点\年, 10 );

if(\\本站点\月<10)

temp=temp+"-0"+StrFromInt( \\本站点\月, 10 ); else

temp=temp+"-"+StrFromInt( \\本站点\月, 10 ); if(\\本站点\日<10)

temp=temp+"-0"+StrFromInt( \\本站点\日, 10 ); else

temp=temp+"-"+StrFromInt( \\本站点\日, 10 ); \\本站点\日期=temp;

if(\\本站点\周==1)

\\本站点\星期="星期日";

if(\\本站点\周==2)

\\本站点\星期="星期一";

if(\\本站点\周==3)

\\本站点\星期="星期二";

if(\\本站点\周==4)

\\本站点\星期="星期三";

if(\\本站点\周==5)

\\本站点\星期="星期四";

if(\\本站点\周==6)

\\本站点\星期="星期五";

if(\\本站点\周==7)

\\本站点\星期="星期六";

图七控件函数CloseUp1()

双击“ATime”控件，弹出动画连接属性，选择“事件”选项卡，如图四所示：双击“Change”事件的关联函数，弹出控件事件函数编辑框，如图五所示：在函数声明处为函数命名，如“Change1()”，在命令语言编辑框中编写脚本程序对选择的时间进行处理，如图八所示：脚本程序如下：

string temp;

\\本站点\时=ATime.Hour;

\\本站点\分=ATime.Minute;

\\本站点\秒=ATime.Second;

if(\\本站点\时<10)

temp=StrFromInt( \\本站点\时, 10 );

else

temp="0"+StrFromInt( \\本站点\时, 10 );

if(\\本站点\分<10)

temp=temp+":0"+StrFromInt( \\本站点\分, 10 );

else

temp=temp+":"+StrFromInt( \\本站点\分, 10 );

if(\\本站点\秒<10)

temp=temp+":0"+StrFromInt( \\本站点\秒, 10 );

else

temp=temp+":"+StrFromInt( \\本站点\秒, 10 );

\\本站点\时间=temp;

图八控件函数Change1()

制作画面如图九所示：动画连接分别连接对应的变量。

图九日历控件画面

保存画面。画面制作完成。

4. 进入运行系统：

画面开发完成点击工程浏览器的“View”按钮切换到运行系统。运行画面如图十所示：

图十运行系统

此控件可以在组态王中灵活使用，例如在报警查询、报表查询、历史数据查询等等场合，与报警、报表等的结合使用请参考相关文档或者组态王手册。此控件的其他属性请参考微软的相关文档或者咨询微软公司。

三、注意事项

1．此控件的使用需要结合具体功能实现。

2．此控件无法在WEB上进行发布。

3．本演示工程只是简单的日历控件使用的例程，更深一步的学习使用请参考相关文档，或者参加组态王培训班。如有问题请致电亚控公司技术部。

EXCEL添加日历控件

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中实现日期选择输入(日历控件)

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

EXCEL日历控件教程详细

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

Excel日历控件教程 详细

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 然后根据以下的方法覆盖粘贴此行代码

方正日历插件使用说明

方正日历插件使用说明 年年都要做日历或年历，有句话说的好，“年年岁岁人相似，岁岁年年花不同”。现在很多人做日历最简单的方法就是从网上去找别人提供的模版，然后再手工进行调整，既麻烦又没有个性，要是幸运能够找到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中如何实现选择日历控件，就将日期插入到指定的单元格？ 请跟随如下操作； 在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文本。方便更改

日期js控件

* (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控件功能： 显示一个日历，该日历会显示一个月份 允许用户选择日期、周、月 允许用户选择一定范围内的日期 允许用户移到下一月或上一月 以编程方式控件选定日期的显示 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属性。

easyui控件实例之Calendar日历

源码如下： 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13.

Basic Calendar

14. Click to select date. 15. 16. 17. 18. 19. 源码如下： 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13.

First Day of Week

14. Choose the first day of the week. 15. 16.