excelvba定义时间类型(vba定义时间格式)

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事件中对单元格赋值。