ExcelVBA 之计算年龄并打印Sub AgeCalc( ) ‘variable declaration （变量声明） Dim FullName

对变量的声明以及立即窗口的打印结果

Sub AgeCalc( )
             ‘variable declaration （变量声明）
             Dim FullName As String
             Dim DateOfBirth As Date
             Dim Age As Integer
             'assign values to variables （赋值给变量）
             FullName = "John Smith"
             DateOfBirth = #01/03/1967#
             'calculate age （计算年龄）
             Age = Year(Now())-Year(DateOfBirth)
             'print results to the Immediate window （在立即窗口里打印结果）
             Debug.Print FullName & " is " & Age & " years old."
End Sub

（Debug是非常好的工具，它让对象在运行时将结果在立即窗口上显示）

变量在程序的开始部分就被声明了，从那里开始，它们就可以使用了。在上面的过程里，每个变量声明在分开的行。如果你想，你也可以同时在一行里声明好几个变量，用逗号分开每个变量，例如：

Dim FullName As String, DateOfBirth As Date, Age As Integer

注意，关键字Dim只在变量声明行的开头出现了一次。

当VB执行变量声明语句时，它产生了有确切名称的变量，并且占用内存空间来储存它们的值，然后，明确的值被赋给这些变量。如何给变量赋值？变量名称，之后是一个等号，等号的右边是你希望用该变量储存的数据。这里你输入的数据必须是该变量声明的数据类型。文本数据应该使用引号包括起来，而日期需要用井号#包括起来。VB使用DateOfBirth提供的数据来计算员工的年龄，并且将计算结果储存到Age这个变量。员工的姓名和年龄通过指令Debug.Print打印到立即窗口。当程序运行结束后，你必须打开立即窗口来查看结果。

Others：如果你不用Dim语句声明变量，你通过在变量名称后面加上一个特殊字符同样可以指明该变量的类型。例如下面，你可以在变量名称后面附上美元（$）符号，来指明变量FirstName为字符串类型（String）：
 

Dim FirstName$

              类型声明字符

参考文章：

https://www.w3cschool.cn/excelvba/excelvba-statement.html

https://www.w3cschool.cn/excelvba/excelvba-type.html