1. vba定义时间格式
建议你将label改为文本框，因为文本框有一个属性叫控件来源，可以设为"=Now()"或者"=Time()"之类的函数，从而得到及时时间。
另外可以让文本框做到label的效果，将文本框的背景样式设为透明即可。
2. vba 时间格式
不必用VBA，用三个条件格式就可以搞定。设定每个日期范围和相应单元格底色。
3. vba定义时间变量
全错
第一个月前面也是年份，第二个字符和时间不能相拼接，拼接的必须是字符，时间不行，ACCESS控件中是用单引号，不是双引号，双引号在VBA中用
year(日期变量) 意思是取他的年份
month(日期变量) 意思是取他的月份
day(日期变量) 意思是取他的某一天
Date() 意思是系统当前的日期
Date(变量) 意思是取变量的日期
Time() 意思是系统当前的时间
Time(变量) 意思是取变量的时间值
Str(变量) 意思是将他转换为字符型变量，前后各空一个字节
Cstr(变量) 意思是将他转换为自负型变量，不空字节位置
正确的写法：
控件来源=Cstr(Year(Date())) + '年' + Cstr(Month(Date())) + '月'
如系统时间是 2013-3-15 12:22:08
那他得出的就是：2013年3月
控件来源=Str(Year(Date())) + '年' + Str(Month(Date())) + '月'
这样写也不会错，但是效果不一样：
他的结果是：2013 年 3 月
空了字符。
4. vba定义时间格式不对
VBA（Visual Basic for Applications）是Visual Basic的一种宏语言，是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能，特别是Microsoft Office软件。它也可说是一种应用程式视觉化的 Basic 脚本。
1.时间属性：
使用时候可以直接使用该名称（time除外），也可以用vba调用，如：vba.timenow：返回当前的时间，格式是：2009-08-08 00：00：00date：返回当前的日期，格式是：2009-08-08time：返回当前的时间，格式是：00：00：00timer：返回从00：00：00到当前的秒数，single值
2.时间函数：
其变量为字符串格式，如“2009-08-08 00：00：00”
Second(time) ：返回一个 Variant (Integer)，其值为 0 到 59之间的整数，表示一分钟之中的某个秒
Minute(time) ：返回一个 Variant (Integer)，其值为 0 到 59之间的整数，表示一小时中的某分钟
Hour(time) ：返回一个 Variant (Integer)，其值为 0 到 23之间的整数，表示一天之中的某一钟点
Day(date) ：返回一个 Variant (Integer)，其值为 1 到 31 之间的整数，表示一个月中的某一日
Month(date) ：返回一个 Variant (Integer)，其值为 1 到 12 之间的整数，表示一年中的某月
Year(date) ：返回 Variant (Integer)，包含表示年份的整数。
Weekday(date, [firstdayofweek]) 返回一个 Variant(Integer)，包含一个整数，代表某个日期是一周中的第几天，其中周一作为一周中的第一天使用的是：vbMondayTimeSerial(hour,minute,second)，返回时间，其中三个变量可以是整型或者字符串DateDiff(interval,date1,date2)，其中interval可以为“yyyy”、“mm”、“dd”，返回的是date2-date1的值
3.日期函数：
DateAdd(Interval,Number,Date)返回将一个日期加上一段期间后的日期。其中Interval设定所加上的一段期间的单位。
5. vba定义日期格式
1、在worksheet的selectionchange事件中，让日期控件随着对单元格的选择不同而移动。 If (Target.Row >= 4 And Target.Row <= 100) And Target.Column = 3 Then With DTPicker1 .Visible = True .Left = Target.Left .Top = Target.Top .Width = Target.Rows.Width .Height = Target.Height End With Else DTPicker1.Visible = False End If 2、在dtpicker1的closeup事件中对单元格赋值。
- 相关评论
- 我要评论
-