在Visual Foxpro编程中通过日历控件实现日期输入

Excel日历控件教程详细

E x c e l日历控件教程详细 Revised by BLUE on the afternoon of December 12,2020.

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

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

微软日历控件在组态王中的使用 配置参考文档 北京亚控科技发展有限公司 技术部

目录 一、需求概述 (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属性控制此控件是否允许被使用。

25个非常不错的jQuery日历和日期选取插件

jQuery被认为是最好的JavaScript库，因为它简单易用、灵活，并有大量的插件。 本文介绍25个非常不错的jQuery日历和日期选取插件，希望对各位有用。您也可以在jQuery给力插件大阅兵查找更多的jQuery插件。 fullcalendar 1. Simple JQuery Date Picker 下载地址：https://www.sodocs.net/doc/5f7376386.html,/demos/calendar.php 2. Jquery Week Calendar

下载地址：https://https://www.sodocs.net/doc/5f7376386.html,/robmonie/jquery-week-calendar/wiki/ 3. FullCalendar 下载地址：https://www.sodocs.net/doc/5f7376386.html,/fullcalendar/ 4. jCalendar 下载地址：https://www.sodocs.net/doc/5f7376386.html,/jcalendar/index.html#demo 5. iCal-like calendar

下载地址：https://www.sodocs.net/doc/5f7376386.html,/log/create-astonishing-ical-like-calendars-with-jquery 6. wdCalendar 下载地址：https://www.sodocs.net/doc/5f7376386.html,/2010/06/08/wdcalendar-jquery-based-google-calendar-clone/ 7. Event Calendar

下载地址：https://www.sodocs.net/doc/5f7376386.html,/blog/page.cfm/projects/event-calendar 8. Sexy jQuery Multiday Calendar Datepicker Plugin – jCal 下载地址：https://www.sodocs.net/doc/5f7376386.html,/2010/05/sexy-jquery-multiday-calendar-datepicker-plugin-jcal/ 9. VCalendar

Android开发之日历控件实现

Android开发之日历控件实现 本文介绍Android平台上几种有用的的日历控件。 我们大家都知道，在Android平台3.0中才新增了日历视图控件，可以显示网格状的日历内容，那么对于3.0以下的版本要使用日历控件只能借助第三方，目前用的最多的是CalendarView。 先简单介绍下CalendarView日历控件的使用。 android.widget.CalendarView是从android.widget.FrameLayout中继承。 CalendarView 类提供了基本的日历设置方法： long getDate() 获取从1970年，1月1日，0点0分0秒到现在的毫秒数，因为返回是long型最终只能截止到2038年 int getFirstDayOfWeek() //获取当天是本周的第几天，Android123提示返回的定义在java.util.Calendar类中，比如Calendar.Monday为星期一，定义值为2。 long getMaxDate() //获取CalendarView支持1970年到那天的最大天数 long getMinDate() //获取CalendarView支持1970年到那天的最小天数 boolean getShowWeekNumber() //获取是否显示星期号 boolean isEnabled() //是否显示本日历视图 public void setDate (long date, boolean animate, boolean center) //设置选择日期到1970年的描述 void setDate(long date) //设置选择的日期描述到1970年

在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 Target As Range) If Target.Column = 1 Then Me.Calendar1.Visible = True Else Me.Calendar1.Visible = False End If End Sub 知识扩展： ①执行上述代码时，可能会遇到创建宏的提示，随便输入宏名，再运行即可！ ②可以将上述的代码及EXCEL文件一起保持，以备不时之需，以后你再需要到这种功能，直接打开EXCEL文件即可！ 打开EXCEL文件，运行原来的宏，有可能出现“宏”被禁止运行的提示，解决的方法如下： 在EXCEL操作中执行“工具”→“宏”→“安全性”；弹出如下的对话框； 上图中，选择“安全级”选项卡，将安全设置为“中”即可！之后关闭EXCEL，再打开，就能运行了！

格式化date and time picker控件选择的日期格式

格式化date and time picker控件选择的日期格式 前面一片博客记录了怎么使用c脚本分别提取date and time picker控件的年、月、日，有时候我们需要提取选择的日期，还需要把这个日期按照YYYY-MM-DD这样的格式进行显示。在wincc画面上放置一个date and time picker控件，名字修改为DT，放置一个按钮，按钮的鼠标点击事件中添加以下c脚本： #include "apdefap.h" void OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName) { char selyear[4],seldate[10]; sprintf(selyear,"%s",GetPropChar(lpszPictureName,"DT","Year")); if (GetPropWord(lpszPictureName,"DT","Month")>=10) { if (GetPropWord(lpszPictureName,"DT","Day")>=10) sprintf(seldate,"%s-%d-%d",selyear,GetPropWord(lpszPictureName,"DT","Month"),GetPropWord(lpszPictureName,"D T","Day")); else sprintf(seldate,"%s-%d-d",selyear,GetPropWord(lpszPictureName,"DT","Month"),GetPropWord(lpszPictureName,"DT" ,"Day")); } else { if (GetPropWord(lpszPictureName,"DT","Day")>=10) sprintf(seldate,"%s-d-%d",selyear,GetPropWord(lpszPictureName,"DT","Month"),GetPropWord(lpszPictureName,"DT" ,"Day")); else sprintf(seldate,"%s-d-d",selyear,GetPropWord(lpszPictureName,"DT","Month"),GetPropWord(lpszPictureName,"DT"," Day")); } MessageBox(NULL,seldate,"警告",MB_OK); } 最终seldate变量存储的就是形如YYYY-MM-DD这种格式的日期。

excel表格插入日历控件

Excel 2007中日历控件使用 1. 先需下载并注册安装Excel 2007的日期控件文件MSCAL.OCX。 在Microsoft网站或internet上下载日历控件文件MSCAL.OCX（不同版本Office有不同的日历控件文件），保存到C:\Windows\System32文件夹中，打开CMD窗口，输入命令“Regsvr32 mscal.ocx”后显示注册成功。 2. 在Excel中显示“开发工具”菜单栏。

3.点击“插入”的“其他控件”。

4.浏览到最底部看到注册安装的日历控件，点击“确定”。

5.在VB编辑器中输入如下的代码（如图所示）： ******************************** Private Sub Calendar2_Click() ActiveCell = Calendar2.Value Me.Calendar2.Visible = False End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 6 Then 'D列为日期输入列，只对应excel的字母列，例如D对应4，'G对应7，不是实际的显示列对应的数字 Calendar2.Left = Target.Left + Target.Width '设置日历控件弹出后的位置 Calendar2.Top = Target.Top + Target.Height '同上 Calendar2.Value = Date '设置默认日期为系统日期 Calendar2.Visible = True '使日历控件可见 ElseIf Target.Column = 6 Then 'F列为日期输入列

选择日期Excel日历控件将日期插入到指定单元格

选择日期Ｅxcｅl日历控件将日期插入到指定单元格 在Ｅxcｅl中如何实现选择日历控件，就将日期插入到指定的单元格？ 请跟随如下操作; 在EXCEＬ窗口中执行“视图”→“工具栏”→“控件工具箱”;弹出如下图对话框； 按上图的操作,找到“日历控件11.0”,之后在EXCEL窗口中使用鼠标左键一拖，拖出如下图的控件;

上图,我们要实现的结果是：在C列中,无论点击哪个单元格，就弹出日历控件,选择一个日期之后,日期自动插入到单元格；除Ｃ列之外，点击其他列的单元格，不会弹出日历选择控件； 要想实现这样的效果,得使用VＢA来实现; 选择日历控件,鼠标左键双击，进入代码编辑模式;如下图! 上图中，第一个过程代码就是日历控件所需要的代码,另外,还得需要另外一个代码,在图中按红线圈住部分选择,找到对应的过程,输入如下的VＢA代码即可！ 完成之后，直接运行VＢA代码，返回EXＣＥＬ操作窗口，即可实现效果了！ 如上图，Ｃ３单元格已插入了日期，当你选择C列其他单元格时，就弹出日历控件，以供选择，选择完成,即可插入日期了！ 为方便操作,提供源代码： PｒivatｅSｕb Calendaｒ1_Click() ActiveＣeｌl =Ｃａleｎdar１.Valuｅ Me.Calｅndａr1．Ｖiｓiblｅ＝Falｓe EnｄＳｕb PrivatｅSuｂＷｏrksheet＿ＳelｅｃtionChange（ByVaｌＴaｒgeｔAs Rａnｇe) If Ｔａrget.Ｃolumn = １Then Ｍｅ．Cａlｅndａr1.Vｉsiblｅ＝Ｔruｅ Else Mｅ．Calenｄａr1.Visｉｂle ＝False End If Eｎd Ｓub 新建文本文档.txt

fullcalendar日历控件知识点集合

Fullcalendar 基本用法和知识点 1、基本语法： 首先，fullcalendar和JQUERY一样，以面向对象的方式来组织代码。当然，这里 的面向对象仅仅是指可以把整个fullcalendar理解为一个类，这个类里包括有很多的属性、方法、委托(函数回调)作为成员变量。通过为这些成员变量赋值，即可实例化出一个 符合自己需求的 fullcalendar实例出来，即最终在浏览器里渲染出的日历。换句话说，我 们所做的绝大多数工作就是按照fullcalendar的语法约定去配置出一个符合我们需求的fullcalendar实例。除非对于极少的特殊需求，fullcalendar向我们提供的接口不足以满足，才会去修改 fullcalendar本身的js文件。 作为一种JQUERY插件，可以把fullcalendar理解为向 jquery对象集里添加了一 个日历相关的对象，这个对象里相关方法、属性、的调用方式，即为fullcalendar的基本 语法。整个语法分为两种： 第一种和日历本身无关，仅仅是利用fullcalendar提供的方法来进行字符串和日期 间的转换，形式如下： $.fullCalendar.formatDate(); 第二种则是与和配置fullcalendar实例相关的，这最终会影响到fullcalendar在浏 览器里的渲染，形式如下$(‘#someId’) .fullCalendar(content); $(‘#someId’)将得到一个jquery对象，其中someId为你希望渲染日历的元素id。重点是后面一部分.fullCalendar(content); Content有三种形式： ①为属性赋值 {ke y:value,…} $('#calendar').fullCalendar({ weekends: false // will hide Saturdays and Sundays }); 这里即得到一个fullcalendar实例，其中weekends属性为false,即月日历不会显示周末。 ②方法调用'methodName','para' $('#calendar').fullCalendar('next') 这里会调用fullcalendar实例的next方法，其结果是浏览器的日历向后翻一月(日) ③为方法回调赋值

一个java Swing做的日历控件

package com.gxaedu.jms.util; import java.awt.Color; import https://www.sodocs.net/doc/5f7376386.html,ponent; import java.awt.Font; import java.awt.Insets; import java.awt.event.ActionEvent; import java.awt.event.ActionListener; import java.awt.event.ItemEvent; import java.awt.event.ItemListener; import java.awt.event.KeyAdapter; import java.awt.event.KeyEvent; import java.awt.event.MouseAdapter; import java.awt.event.MouseEvent; import java.text.DateFormatSymbols; import java.util.Calendar; import java.util.GregorianCalendar; import javax.swing.*; import javax.swing.table.DefaultTableCellRenderer; import javax.swing.table.DefaultTableModel; import javax.swing.table.TableModel; /** * 一个小的日历 * 用于输入合法时间 * @author 王琛 * */ public class SelfCalendar extends JDialog{ private static JPanel mainPanel; ///主面板,用来放置 各个组件 private static JTextField textYear; //文本框,显示输入年 份 private static JComboBox comboMonth; //下拉框,显示输入月份private JButton btnYearUp; ///按钮,年份加一 private JButton btnYearDown; //按钮,年份减一 private JPanel topPanel; ///顶部面板,放置 textYear,comboMonth,btnYearUp,btnYearDown private JScrollPane scrollPane; private static JTable tbCalendar; //放置日历主体 private JLabel nowDate; //显示当前年月日