1.获取当前的系统时间在【A1】中，系统中的年在[B1],月在【C1】日在【D1】
Sub D()
ActiveCell.FormulaR1C1 = "=NOW()"
 Range("B1").Select
 ActiveCell.FormulaR1C1 = "=year"
 Range("B1").Select
 ActiveCell.FormulaR1C1 = "=YEAR(RC[-1])"
 Range("C1").Select
 ActiveCell.FormulaR1C1 = "=MONTH(RC[-2])"
 Range("D1").Select
 ActiveCell.FormulaR1C1 = "=DAY(RC[-3])"
 Range("D2").Select
End Sub

获取当前的系统时间在【A1】中，系统中的年在[B1],月在【C1】日在【D1】
Sub D()
ActiveCell.FormulaR1C1 = "=NOW()"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=year"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=YEAR(RC[-1])"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "=MONTH(RC[-2])"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "=DAY(RC[-3])"
    Range("D2").Select
End Sub

    

Sub huoquqiqi()

Dim g_year As Integer
Dim g_month As Integer
Dim g_days As Integer

g_year = Year(Now) '时间函数，获取当前时间的年份
g_month = Month(Now)
If g_month = 2 Then  '当二月份时，判断当前年份是否为闰年
    
    If g_year Mod 400 = 0 Or g_year Mod 4 = 0 Then
        g_days = 29
    Else
    g_days = 28
    End If
    
Else
    Select Case g_month
    Case 1, 3, 5, 7, 8, 10, 12
        g_days = 31
    Case 4, 6, 9, 11
        g_days = 30
    End Select
End If
Range("c2") = g_year & g_month & g_days


　　

转载于:https://www.cnblogs.com/queqiaoshui/p/10261865.html

从上一篇文章我们已经可以获取某单元格的数据，现在我们只要执行：MsgBox VarType(curCell)就可以获取到类型，完整代码如下：
Sub Macro1()
'
' Macro1 Macro
' 宏由 cq 录制，时间: 2016/08/02
x = Sheets("Sheet1").[a5]
MsgBox VarType(curCell)
End Sub


我们会在弹窗看到一个数字，这个就是我们数据类型，下面这张表就是数据类型对应的值：（我们可以从excel帮助获得）

常数
值
描述
vbEmpty
0
未初始化（缺省值）
vbNull
1
不含任何有效数据
vbInteger
2
Integer
vbLong
3
长整数
vbSingle
4
单精度浮点数
vbDouble
5
双精度浮点数
vbCurrency
6
Currency
vbDate
7
Date
vbString
8
String
vbObject
9
对象
vbError
10
错误
vbBoolean
11
Boolean 
vbVariant
12
Variant（只用于变体的数组类型）
vbDataObject
13
数据访问对象
vbDecimal
14
Decimal
vbByte
17
Byte
vbLongLong
20
LongLong 整型（只在 64 位平台上有效。）
vbUserDefinedType
36
包含用户定义类型的变量
vbArray
8192

数组