Foxtable使用说明
数据类型：
数据类型
说明
String
任意个数的字符，常称为字符串。
Date
日期时间
Boolean
逻辑值，逻辑值就两个，分别是True(是)和False(否)。
Byte
微整数，介于0 到 255 之间的微整数
Short
短整数，介于–32768 到 32767 之间的短整型
Integer
整数，介于–2147483648 到 2147483647 之间的整数。
Long
长整数，值的范围为 -9223372036854775808 到 9223372036854775807。
Single
单精度小数，单精度小数，有效数字为7位。
Double
双精度小数，有效数字为15位。
Decimal
高精度小数，有高达28位的有效数字，适用于要求使用大量有效的整数及小数位数并且没有舍入错误的财务计算。
Object
通用型，可存放任何类型的数据。
数值类型较多，一般情况下，小数用Double型，整数用Integer型即可，如果整数范围较大，可以用Long型。
我们最常用的数据类型是：String、Date、Boolean、Integer、Long、Double。
有效数字？
简单地说，就是从左边第一个不是0的数字算起，直到最后一个数字，就是一个数值的有效数字，例如1.324的有效数字是4位(1、3、2、4)，1.3240的有效数字是5位(1、3、2、4、0)，而0.024的有效数字是两位(2、4)。
声明变量
变量用来在执行代码的过程中临时存放数据，要使用一个变量，必须先声明它。
声明一个变量，就是要指定变量的名称和它的数据类型。
声明变量的语法是：
Dim 变量名 As 数据类型
例如：
Dim Name As String
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
示声明了一个新的String(字符串)型变量，变量名为“Name”。
再例如：
Dim riqi As Date
表示声明了一个新的Date(日期)型变量，变量名为“riqi”。
可以在定义变量的同时指定其初始值，例如：
Dim Name As String = "foxtable"
表示声明了一个新的String(字符串)型变量，变量名为“Name”，初始值为“foxtable”。
可以在同一行定义多个变量，前提是这些变量的类型相同，变量名之间用逗号分割，例如：
Dim Val1,Val2 As Integer
Dim Str1,Str2 As String
上面的代码，定义了两个整数型变量Val1、Val2，以及两个字符型变量Str1、Str2。
提示：上面出现的彩色字符，是Foxtable的代码编辑器自动加上去的，只是为了便于阅读，并无特殊的意义。
关于变量名
变量名称必须以字符或者下划线( _ )开始，而且至少应该包括一个字符或者数字。
变量名不能包含除下划线( _ )之外的符号和空格。
变量名也不能是关键词，所谓关键词，就是对Visual Basic有特殊意义的单词，例如上面的Dim、As。
关键词有几百个，你很难全部记住的，但你只要记住一点，如果输入代码，单击“确定”按钮后，提示“关键词作为
标识
采样口标识规范化 下载危险废物标识 下载医疗器械外包装标识图下载科目一标识图大全免费下载产品包装标识下载
符无效！”，那么就表明你可能用关键词作为变量名了。
圆点符号
任何对象的
方法
快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载
和属性，都必须通过圆点符号才能调用和访问，例如：
Dim d As Date
Dim i As Integer
i = d.Month
d = d.AddDays(36)
日期型数据有一个属性Month，用于返回该日期的月份，我们通过圆点符号来访问该属性：
i = d.Month
现在变量i的值等于日期d的月份。
日期型数据有一个AddDays方法，用于给日期加上指定的天数，并返回新的日期，我们同样通过原点符号调用这个方法：
d = d.AddDays(36)
现在变量d等于原日期加上36天后的新日期。
共享成员
例如我们定义了一个日期变量d，那么通过该变量的Month属性可得到其月份值：
Dim d As Date = #12/31/2008#
Dim i As integer = d.Month
上面的代码通过Month属性获得日期型变量d的月份值，并保存在整数型变量i中。
Month属性和具体的日期变量相关，不同的日期变量，Month属性返回不同的值；事实上，绝大多数属性，都和Month属性一样，是和具体变量相关的。
但是有一些属性是不同的，它不是通过变量，而是通过类型名称访问，例如要得到今天的日期值：
Dim d As Date
d = Date.Today
上面的代码将今天的日期值保存在变量d中。
请注意用于返回当天日期值的Today属性，它不属于任何一个日期型变量，而是属于日期类型Date，我们直接通过Date类型来访问这个属性。
这很好理解，Today这个属性返回的是今天的日期值，和具体的日期变量无任何关系。
我们将这种直接通过类型名称访问的属性，称为共享属性。
同样直接通过类型名称执行的方法，称为共享方法。
在这里，共享的意思就是：大家共用的，不属于某个具体变量的。
自动全角转换和着色（命令窗口）
在默认的情况下，代码编辑器会自动将全角字符转换为半角，如果你不喜欢这种强制转换，可以在第一行代码输入：'''。
例如：
'''
Dim s1 As String
s1 = "我喜欢Foxtable，因为..."
Output.Show(s1)
此外编辑器会用不同的颜色标出各种关键词，以及表名和列名，如果你的电脑性能不太好，代码又比较长，这种代码自动着色的功能会耗费较长的时间，此时你只需在第一行输入"'..."，即可关闭自动着色。
例如：
'...
Dim s1 As String
s1 = "我喜欢Foxtable，因为..."
Output.Show(s1)
如果你希望同时关闭全角转换和着色，只需在第一行输入"'''..."。
例如：
'''...
Dim s1 As String
s1 = "我喜欢Foxtable,因为..."
Output.Show(s1)
代码注释（命令窗口）
给代码的关键位置加上注释，是一个很好的习惯。
注释以符号 '开始，通常是单独一行，或者位于某一行代码之后。
如果注释和代码在同一行，注释和代码之间应该至少有一个空格。
注释不会对代码的运行有任何影响。
例如:
'下面的代码用于测试Month属性，请复制到命令窗口执行
Dim d1 As Date '定义变量d1
d1 = #12/31/2008# '给变量赋值
Output.Show(d1.Month) '在命令窗口显示月份
上面的代码只是为了说明如何加注释，实际使用的时候，只需给关键的位置加上注释即可，太多的注释，反而会影响代码的可读性。
在代码编辑窗口，注释的颜色为灰色。
字符常量
字符型常量用双引号括起来，例如：
Dim s As String
s = "NBA"
等效于：
Dim s As String = "NBA"
表示定义一个字符变量s，并将s的值设为“NBA”。
可以在定义变量的时候，设定该变量为指定个数的某字符组成，语法为：
Dim 变量名 As New String(字符, 重复次数)
例如：
Dim s As New String("*", 5)
变量s的值将等于"*****"，也就是由5个符号*组成。
也可以在定义变量后，用New String语句给变量赋值，例如：
Dim s As String
s = New String("*", 5)
实际上上面的语句完全等效于：
Dim s As String
s = "*****"
或：
Dim s As String = "*****"
不过假定你要将变量设置为100个空格或100个符号*，此时用New String赋值显然要简洁得多。
如果字符串中本身包括双引号，那么用每两个双引号表示一个双引号。
将下面的代码复制到命令窗口执行：
Dim s1 As String = "利马是有名的""无雨之都"""
Output.Show(s1)
你会发现s1的值为：利马是有名的"无雨之都"
日期常量
日期型常量必须包括在符号#之间，格式为：#月/日/年#
例如：
Dim d1 As Date = #12/31/2008#
等效于：
Dim d1 As Date
d1 = #12/31/2008#
表示定义一个日期变量d1，初始值为2008年12月31日。
下面是另一种定义日期变量的语法：
Dim 变量名 As New Date(年,月,日)
例如：
Dim StartDate As New Date(2008,12,31)
同样表示定义一个日期变量StartDate，初始值为2008年12月31日。
New Date表示创建一个新的日期，既然是创建一个日期，当然得指定年、月、日。
New Date是可以单独使用的，例如：
Dim StartDate As Date
StartDate = New Date(2008,12,31) '变量值设为2008年12月31日
Output.Show(StartDate)
这一行代码：
StartDate = New Date(2008,12,31)
等效于：
StartDate = #12/31/2008#
逻辑常量
逻辑常量值就两个，分别为True(是)和False(否)。
逻辑变量通常用于保存某一个条件表达式的值。
例如：
Dim v1 As Boolean = (1 = 2)
Dim v2 As Boolean = (1 < 2)
Dim v3 As Boolean = True
Dim v4 As Boolean
上述代码执行后，变量v1的值等于False，变量v2的值等于True,因为1=2是不成立的，而1<2是成立的。逻辑变量的默认初始值为False，所以变量v4的值等于False，而变量v3的值显然等于True。
枚举
枚举就是一组有名称的整数，例如星期一、星期二、星期三....，就可以看作是枚举，因为他们实际上代表着一个整数，这个整数表示这一天是该星期的第几天。
程序中的枚举，通常用于选项设置，选项通常是一些整数，0、1、2表示不同的设置，为了提高程序的可读性，我们用一些更具描述性的字符型名称来代替这些整数，这些代表着不同整数的名称，就是枚举。
例如在列属性设置中，有一个名为“中文输入”的属性，它就是一个枚举类型，包括三个值，分别是：
Default：保持当前输入法状态不变
True： 自动打开中文输入法
False： 自动关闭中文输入法
显然，对于用户来说，用Default、True、False表示不同的设置，比用0、1、2表示不同的设置，要容易理解得多。
关于枚举，你现在只需要了解这么多，今后我们会接触到更具体的枚举类型，那时你会觉得枚举其实是很容易理解的。
数组
数组是同一数据类型的一组变量的集合。
定义数组语法为：
Dim 数组名(索引上限) As 数据类型
例如：
Dim Names(3) As String
表示定义了一个字符型(String)数组，数组名为“Names”，数组的索引从0开始，所以该数组包括4个字符型变量（我们称之为数组元素），分别是：
Names(0), Names(1), Names(2), Names(3)
数组有一个Length属性，用于返回数组的长度。
下面是一段完整的代码，用于测试数组的基本特性，请复制到命令窗口执行：
Dim Names(3) As String
Names (0) = "杨国辉"
Names (1) = "柯迎"
Names (2) = "陈绍月"
Names (3) = "朱志欣"
Output.Show(Names(1)) '在命令窗口显示第二个数组元素的值。
Output.Show(Names.Length) '在命令窗口显示数组的长度。
可以在定义数组的时候，直接给数组元素赋值，例如：
Dim Values() As Integer = {1,3,5}
上面的代码定义了一个整数型数组，数组包括三个元素，分别是1、3、5。
再例如：
Dim s1() As String = {"中国","美国","日本","俄罗斯"}
上面的代码定义了一个字符型数组，数组包括四个元素。
如果采用直接赋值的方式定义数组，不需要指定数组的索引上限，此时索引上限由值的个数确定。
可以在定义数组之后，再给数组批量赋值：
Dim s1() As String
s1 = New String() {"中国","美国","日本","俄罗斯"}
集合
集合类似于数组，但是比数组更为灵活，定义集合的语法是：
Dim 集合名称 As New List(Of 数据类型）
例如：
Dim Names As New List(Of String)
表示定义了一个字符型(String)集合，集合的名称为Names。
集合的成员包括：
名称
类型
说明
Add
方法
向集合中增加一个值
Insert
方法
向集合的指定位置插入一个值
Remove
方法
删除指定的值
RemoveAt
方法
删除指定位置的值
Contains
方法
判断集合中是否包括某个值
AddRange
方法
批量增加多个值
Count
属性
返回集合中值的个数
一旦定义了集合，我们就可以用Add方法向其中添加值，例如：
Names.Add("电视机")
Names.Add("电冰箱")
Names.Add("洗衣机")
可以用Remove方法删除指定的值，例如：
Names.Remove("电视机")
可以用RemoveAt删除指定位置的值，例如：
Names.RemoveAt(0)
表示删除第一个值。
还可以用Insert方法将值插入到指定位置，例如：
Names.Insert(0,"电视机")
可以用Contains方法判断集合中是否包括某一个对象，例如：
If Names.Contains("电视机")= False Then
Names.Add("电视机")
End If
和数组一样，我们通过索引来引用集合中指定位置的值，例如：
Names(0)
Names(1)
当然也可以改变指定位置的值，例如：
Names(0) = "微波炉"
可以用集合的Count属性返回集合中值的个数：
Names.Count
下面是一段完整的代码，用于测试集合的基本特性，请复制到命令窗口执行：
Dim Names As New List(Of String)
Names.Add( "电视机")
Names.Add("电冰箱")
Names.Add("洗衣机")
Names.Remove("电视机")
If Names.Contains("电视机")= False Then
Names.Add("电视机")
End If
Names.Insert(0,"传真机")
Names(2) = "微波炉"
Output.Show(Names.Count) '显示集合的长度
OutPut.Show(Names(0)) '显示第一个值
用AddRange方法，可以将一个数组或另一个集合中的所有元素加入到集合中，例如：
Dim v1() As String = {"中国","美国","日本","俄罗斯"}
Dim s1 As New List(of String)
Dim s2 As New List(of String)
s1.AddRange(v1) '将数组中的元素全部加入到集合中
s2.AddRange(s1) '将集合s1中的元素全部加入到集合s2中
字典
Dictionary表示键与值的集合，俗称字典。
定义一个字典的语法是：
Dim 变量名 As New Dictionary(Of 键类型, 值类型)
例如：
Dim zd As New Dictionary(Of Integer, String)
表示定义了一个字典zd，键的类型是整数型(Integer)，值的类型是字符型(String)。
键和值可以是任何类型，例如：
Dim zd As New Dictionary(Of String, Date)
字典的成员包括：
名称
类型
说明
Add
方法
将指定的键和值添加到字典中
Remove
方法
移除指定的键和值
Clear
方法
清除所有的键和值
ContainsKey
方法
判断是否包含指定的键
ContainsValue
方法
判断是否包括指定的值
Count
属性
返回字典中键/值对的数目
Keys
属性
返回健的集合
Values
属性
返回值的集合
示例
Dim zd As New Dictionary(Of Integer, String)
zd.Add(1,"苹果")
zd.Add(2,"香蕉")
zd.Add(3,"波罗")
zd.Add(4,"桔子")
zd.Add(5,"桃子")
zd.Remove(1) '移除键1及其对应的值
zd.Remove(5) '移除键5及其对应的值
Output.Show(zd(2)) '显示键2对应的值
Output.Show(zd(3)) '显示键3对应的值
If zd.ContainsKey(1) = False Then '是否存在键1
zd.Add(1,"苹果")
End If
If zd.ContainsValue("桃子") = False Then '是否存在值"桃子"
zd.Add(5,"桃子")
End If
For Each k As Integer In zd.Keys '显示所有键及其对应的值
Output.Show(K & ":" & zd(k))
Next
For Each v As String In zd.Values '显示所有值
Output.Show(v)
Next
zd.Clear '清除所有的键和值
算术运算符
运算符
说明
+
加
-
减
*
乘
/
除，例如：12/8，等于1.5
\
整除，只返回结果的整数部分，例如：12\8，等于1
^
指数运算，例如：2^3，表示2的3次方，等于8
Mod
取模，例如：10 Mod 3，表示10除以3的余数，等于1
请将下面的代码复制到命令窗口执行：
Output.Show(12/8) '测试除法
Output.Show(12\8) '测试整除
Output.Show(12 Mod 8) '获得余数
Output.Show(2^4) '指数运算
关系运算符
运算符
说明
=
等于
<>
不等于
>
大于
<
小于
>=
大于等于
<=
小于等于
逻辑运算符
逻辑运算符用于连接两个条件表达式，根据左右表达式的计算结果，返回一个新的逻辑值。
运算符
说明
And
逻辑与，如果左右表达式的值都为True，则返回True，否则返回False
AndAlso
逻辑与，如果左右表达式的值都为True，则返回True，否则返回False
Or
逻辑或，如果左右表达式的值至少有一个True，则返回True，否则返回False
OrElse
逻辑或，如果左右表达式的值至少有一个True，则返回True，否则返回False
Not
逻辑非，如果后边的表达式为True，则返回False，否则返回True，也就是对后边表达式的值取反。
补充说明：
And和Or，都是先计算左右两个表达式的值，然后再返回结果。
AndAlso先计算左边表达式的值，如果计算结果为False，则直接返回False，不再计算右边表达式的值。
OrElse先计算左边表达式的值，如果计算结果为True，则直接返回True，不再计算右边表达式的值。
所以通常用AndAlso和OrElse代替And和Or，因为效率高点。
示例
Dim v1 As Boolean = True 'True
Dim v2 as Boolean 'False
Dim v3 As Boolean = (1 < 2 AndAlso 2 > 3) 'False
Dim v4 As Boolean = (1 < 2 OrElse 2 > 3) 'True
Dim v5 As Boolean = (v1 AndAlso v4) 'True
Dim v6 As Boolean = (v2 OrElse v3) 'False
Like运算符
Like使用通配符来比较字符串。
可用的通配符有：
字符
说明
?
任何单个字符
*
零或多个字符
#
任何单个数字（0 到 9）
[字符列表]
字符列表中的任何单个字符，例如[abx]表示a、b、x三个字符中的任何一个。
[!字符列表]
不在字符列表中的任何单个字符，例如[!abx]表示除a、b、x之外的任何一个字符。
方括号中的字符列表，可以使用连字符 (–) 将范围的上下限分开，例如[a-e]表示字母a到e中的任意一个，[a-z]就表示任意一个字母，而[0-9]表示任意一数字。
将下面的代码复制到命令窗口执行，请留意注释和执行结果：
'任意3个字符，后接3个数字
Output.Show( "ABC123" Like "???###") '匹配
Output.Show( "A1212A" Like "???###") '不匹配
'任意一个字符，随后是ABC三字符中的任意一个
Output.Show( "RB" Like "?[ABC]") '匹配
Output.Show( "RD" Like "?[ABC]") '不匹配
'任意一个字符，随后是除ABC三字符之外的任意一个字符
Output.Show( "RB" Like "?[!ABC]") '不匹配
Output.Show( "RD" Like "?[!ABC]") '匹配
'任意一个字母，随后是两个数字
Output.Show( "a12" Like "[a-z]##") '匹配
Output.Show( "112" Like "[a-z]##") '不匹配
字符串
字符串有一个Length属性，用于返回字符串的长度，例如：
Output.Show("中国ABC".Length)
在命令窗口执行上述代码，得到的结果是5。
如果要判断某一个字符串是否包括另一个字符串，可以用Contains方法，例如：
Dim Str1 As String = "中华人民共和国"
Output.Show(Str1.Contains("人民"))
在命令窗口执行上述代码，得到的结果是True。
如果需要得到一个字符串在另一个字符串中的位置，可以用IndexOf方法，例如：
Dim Str1 As String = "中华人民共和国"
Output.Show(Str1.IndexOf("人民"))
在命令窗口执行上述代码，得到的结果是2，注意位置是从0开始计算的，第一个字符的位置是0。
如果要判断字符串是否以另一个字符串开始，可以用StartsWith方法，如果要判断字符串是否以另一个字符串结尾，可以用EndsWith方法，例如：
Output.Show("中国上海".StartsWith("中国"))
Output.Show("中国上海".EndsWith("上海"))
用Trim方法可以删除字符串前后的空格，例如：
Dim Str1 As String = " 人民 ".Trim()
Output.Show(Str1)
执行后可看到变量Str1的值为“人民”，前后的空格被删除了。
用Replace方法可以将字符串中的指定
内容
财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容
替换为另一个字符串，例如：
Dim s As String = "abc123abc"
s = s.Replace("123","789") '将123替换为789
OutPut.Show(s)
在命令窗口执行上述代码，得到的结果是：abc789abc
ToUpper将字符串转换为大写形式，ToLower将字符串转换为小写形式，例如：
Dim Str1 As String = "Foxtable".ToUpper()
Dim Str2 As String = "Foxtable".ToLower()
Output.Show(Str1 & "|" & Str2)
在命令窗口执行上述代码，得到的结果是：FOXTABLE|foxtable
可以使用SubString方法获得从指定位置开始的、指定长度的字符串。
SubString第一个参数指定开始位置，第二个参数可选，用于指定长度，如果省略这个参数，则返回自指定位置开始的全部字符，例如：
Dim s As String = "I Like Foxtable"
Output.Show(s.SubString(0,6)) '获得左边6个字符: I Like
Output.Show(s.SubString(s.Length - 8)) '获得右边8个字符:Foxtable
Output.Show(s.SubString(2,4)) '获得从第3个字符开始的4个字符: Like
如果只是希望获得某一位置的单个字符，可以用Chars属性，该属性带一个参数，返回该参数指定位置的字符，例如：
Output.Show("abcdef".Chars(2))
在命令窗口执行上面的代码，结果为“c”，注意编号是从0开始计算的。
可以使用Remove方法删除从指定位置开始的、指定长度的字符串，例如：
Output.Show("123456789".Remove(2,4)) '删除从第3个字符开始的连续4个字符
在命令窗口执行上述代码，得到的结果是：12789
如果要在字符串的指定位置插入另一个字符串，可以用Insert方法，例如：
Output.Show("123789".Insert(3,"456")) '在位置4插入456
在命令窗口执行上述代码，得到的结果是：123456789
利用Split方法，可以用指定的分割符号，将一个字符串拆分成一个字符数组，例如：
Dim Tel As String = "0759-3166876"
Dim Parts() As String = Tel.Split("-")
Output.Show("区号:" & Parts(0))
Output.Show("电话:" & Parts(1))
在命令窗口执行上述代码，得到的结果是：
区号:0759
电话:3166876
方法
名称
说明
Contains
判断字符串是否包含给定的子字符串。
StartsWith
判断字符串是否以给定的子字符串开头
EndsWith
判断字符串是否以给定的子字符串结尾
Trim
删除字符串前后的空格或指定的字符
TrimEnd
删除字符串后面的空格或指定的字符
TrimStart
删除字符串前面的空格或指定的字符
IndexOf
查找给定的子字符串第一次出现的位置
LastIndexOf
查找给定的子字符串最后一次出现的位置
ToUpper
将字符串转换为大写
ToLower
将字符串转换为小写
SubString
返回从指定位置开始指定长度的子字符串
Replace
查找给定的子字符串，并用另一个子字符替换掉找到的子字符串
Remove
从指定位置开始，删除指定个数的字符
PadLeft
在字符串左侧填充空格或指定的字符，使得字符串的长度达到指定的长度
PadRight
在字符串右侧填充空格或指定的字符，使得字符串的长度达到指定的长度
Split
用指定的分隔符将字符串分隔成一个字符串数组
Insert
在指定位置插入一个子字符串
属性
名称
说明
Chars
返回指定位置的字符
Length
返回字符串的长度
共享成员
名称
说明
Compare
用于比较字符串，可以区分大小写。
Join
指定的分割符号，将一个字符串数组的全部元素合并为一个字符串。
日期与时间
日期和时间的数据类型都是Date，也就是说Date类型的变量，既可以存储日期，也可以存储时间，也可以同时存储日期和时间。
只是出于简单考虑，我们将类型Date，简称为日期型。
时间包括时、分、秒三个部分，时分秒之间用符号冒号隔开，例如：
#9:30:21#
也可以只包括时分，例如：
#9:30#
日期和时间可以连在一起，中间用一个空格隔开，例如：
#12/31/2007 9:30:21#
表示2007年12月31日9时30分21秒。
再例如下面的代码，定义了三个日期型变量：
Dim Day As Date = #12/31/2008# '只包括日期
Dim Time As Date = #9:54:21# '只包括时间
dim DayTime As date = #12/31/2007 10:30:19# '同时包括日期和时间
日期概述
Date类型有一个共享属性Today，用于返回系统日期，如果要返回系统时间，用共享属性Now，例如：
Output.Show("今天是:" & Date.Today())
Output.Show("现在是:" & Date.Now())
在命令窗口执行上述代码，即可显示今天的日期和时间。
如果要判断某一年是否是闰年，可以用共享方法IsLeapYear，例如：
Output.Show(Date.IsLeapYear(1999)) '判断1999年是否是闰年
利用共享方法DaysInMonth可以获得指定月份的天数，例如：
Output.Show("2008年2月有" & Date.DaysInMonth(2008,2) & "天")
获得某个月的第一天和最后一天的日期，是在开发过程中经常碰到的一个任务，利用DaysInMonth可以很轻松地完成这个任务，以2008年2月份为例：
Dim FirstDay As Date = New Date(2008,2,1) '第一天
Dim LastDay As Date = New Date(2008,2,Date.DaysInMonth(2008,2)) '最后一天
利用Year、Month、Day属性，可以获得给定日期的年、月、日值，例如：
Dim d1 As Date = Date.Today
Dim year As Integer = d1.Year
Dim month As Integer = d1.Month
Dim day as Integer = d1.Day
利用DayOfWeek属性，可以知道给定的日期是星期几，例如：
Dim d As Date = #10/31/2008#
Output.Show(d.DayOfWeek) '显示5
如果是星期天，返回值是0，因为星期天被认为是每周的第一天。
利用方法AddYears、AddMonths、AddDays方法，可以分别给日期加上一定的年数、月数、天数，并返回相加后的日期，例如：
Output.Show("50天后是" & Date.Today.AddDays(50))
属性
名称
说明
Date
返回日期时间值的日期部分
Year
返回日期值的年份
Month
返回日期值的月份
Day
返回日期为该月中的第几天
DayOfWeek
返回日期为该星期的第几天，也就是星期几
DayOfYear
返回日期是该年中的第几天
Hour
返回日期时间值的小时部分
Minute
返回日期时间值的分钟部分
Second
返回日期时间值的秒部分
方法
名称
说明
AddYears
给日期值加上指定的年数
AddMonths
给日期值加上指定的月数
AddDays
给日期值加上指定的天数
AddHours
给时间值加上指定的小时数
AddMinutes
给时间值加上指定的分钟数
AddSeconds
给时间值加上指定的秒数
共享成员
名称
说明
Now
返回计算机的当前时间(含日期)。
Today
返回计算机的当前日期，不含时间。
IsLeapYear
判断指定的年份是否是闰年。
DaysInMonth
返回指定月份的天数
时段概述
时段的类型为TimeSpan，所谓时段，就是一段时间范围。
定义一个新的TimeSpan的语法为：
New TimeSpan(days, hours, minutes, seconds, milliseconds)
New TimeSpan(days, hours, minutes, seconds)
New TimeSpan(hours, minutes, seconds)
days: 天数
hours: 小时数
minutes: 分数
seconds: 秒数
milliseconds: 毫秒数
例如：
Dim tp1 As New TimeSpan(20,13,45) '20小时13分45秒
Dim tp2 As New TimeSpan(1,20,13,45) '1天20小时13分45秒
Dim tp3 As New TimeSpan(1,20,13,45,200) '1天20小时13分45秒200毫秒
Dim tp4 As New TimeSpan(0,0,0,200) '200秒
Dim tp5 As New TimeSpan(0,0,0,0,200) '200毫秒
时段数据有以下常用属性：
属性
说明
Days
获得时段数据的天数
Hours
获得时段数据的小时数
Minutes
获得时段数据的分钟数
Seconds
获得时段数据的秒数
两个日期时间数据相减，得到的就是一个时段型数据。
例如：
Dim d1 as Date = #3/17/2002 12:30:29#
Dim d2 as Date = #1/1/2008 10:11:49#
Dim t As TimeSpan = d2 - d1
Output.Show(t.Days & "天" & t.Hours & "小时" & t.Minutes & "分" & t.Seconds & "秒")
在命令窗口执行上述代码，得到的输出结果是：2115天21小时41分20秒
利用时段数据的下述属性，可以将时段转换为一个数值：
属性
说明
TotalDays
将时段值转换为以天为单位的数值
TotalHours
将时段值转换为以小时为单位的数值
TotalMinutes
将时段值转换为以分为单位的数值
TotalSeconds
将时段值转换为以秒为单位的数值
例如：
Dim d1 as Date = #3/17/2002 12:30#
Dim d2 as Date = #1/1/2008 18:30#
Dim t As TimeSpan = d2 - d1
Output.Show(t.TotalDays & "天")
在命令窗口执行上述代码，得到的输出结果是：2116.25天
利用时段数据的Add和Subtract方法，可以进行时段的加减，并得到一个新的时段值。
例如：
Dim t0 As New TimeSpan(10,0,5)
Dim t1 As New TimeSpan(40,6,30,15)
Dim t2 As New TimeSpan(40,20,45)
Dim t3 As TimeSpan
t3 = t1.Subtract(t2) 't3等于t1减去t2
t3 = t3.Add(t0) 't3加上t0
Output.Show(t3.Days & "天" & t3.Hours & "小时" & t3.Minutes & "分" & t3.Seconds & "秒")
在命令窗口执行上述代码，得到的输出结果是：39天0小时9分35秒
有时为了测试代码的效率，我们需要记录代码执行所耗费的秒数，可以参考下面的代码:
Dim t1 As Date = Date.Now
Dim Sum As Long
For i As Integer = 1 To 10000000
Sum = Sum + i
Next
Output.Show("计算结束, 耗时: " & (Date.Now - t1).TotalSeconds & "秒")
属性
名称
说明
Days
返回时段数据的天数
Hours
返回时段数据的小时数
Minutes
返回时段数据的分钟数
Seconds
返回时段数据的秒数
Milliseconds
返回时段数据的毫秒数
TotalDays
将时段值转换为以日为单位的数值，含小数，例如某个时段数据的值是1天6小时，那么其TotalDays属性值为1.25
TotalHours
将时段值转换为以小时为单位的数值，含小数，例如某个时段数据的值是1天6小时30分，那么其TotalHours属性为30.5
TotalMinutes
将时段值转换为以分钟为单位的数值，例如某个时段数据的值是1天6小时30分15秒，那么其TotalMinutes属性为1830.25
TotalSeconds
将时段值转换为以秒为单位的数值，含小数，例如某个时段数据的值是1天6小时30分15秒，那么其TotalSeconds属性为109815
TotalMilliseconds
将时段值转换为以毫秒为单位的数值，例如某个时段数据的值是1天6小时30分15秒200毫秒，那么其TotalMilliseconds属性为109815200
方法
名称
说明
Add
将时段数据加上另一个时段数据，返回相加后的时段数据值
Subtract
将时段数据减去另一个时段数据，返回相减后的时段数据值
数据转换函数
在程序开发的过程中，我们经常需要将某一类型的数据转换为其它数据类型后使用。
为此Visual Basic提供了以下转换函数：
CStr 转换为字符串(String)。
CDate 转换为日期(Date)。
CDbl 转换为双精度小数(Double)。
CInt 转换为整数(Integer)。
CLng 转换为长整数(Long)。
CSng 转换为单精度小数(Single)。
CDec 转换为高精度小数(Decimal)。
Cbyte 转换为微整数(Byte)。
CShort 换为短整数(Short)。
示例
Dim s As String = "123.12"
Output.Show(Cdate("1999-12-31"))
Output.Show(CInt(s))
Output.Show(CDbl(s) + 100)
请参考： 带判断的转换 最直接的转换
字符转换函数
Foxtable提供了很多字符转换函数，例如CUMoney可以将数字转换为中文货币格式：
例如：Dim v As String
v = CUMoney(12345.12)
Output.Show(v)
输出为：壹万贰千叁佰肆拾伍圆壹角贰分
下表列出了所有的字符转换函数。
函数名
说明
ReadBirthDay
从身份证号码中读取出生日期
ReadSex
从身份证号码中读取性别
CLDate
将日期转换为小写中文格式
CUDate
将日期转换为大写中文格式
CCDate
将日期转换为大写中文格式，符合支票格式
CUMoney
将阿拉伯数字转换为中文货币格式
CUNumber
将阿拉伯数字转换为中文格式，只能处理整数
CCNumber
将阿拉伯数字转换为中文格式，符合支票格式，只能处理整数
EUMoney
将数值转换为英文货币格式
EUNumber
将整数转换为英文大写
GetPy
将指定汉字转换为拼音格式
GetDigit
从一个数值中返回指定位的数字，可用于支票套打
StrToWide
将字符串转换为全角
StrToNarrow
将字符串转换为半角
StrToSimplified
将字符串转换为中文简体
StrToTraditional
将字符串转换为中文繁体
StrReverse
将字符串的字符排列顺序颠倒
StrToTitleCase
将字符串转换为词首字母大写
数学
数学高考答题卡模板高考数学答题卡模板三年级数学混合运算测试卷数学作业设计案例新人教版八年级上数学教学计划
函数（函数参考）
数学函数、三角函数都是用Math类的共享方法实现的，这些函数的调用格式为：
Math.函数名
例如要计算某个数值的绝对值，代码是：
Dim dbl As Double
dbl = Math.Abs(-1.23)
下面分类列出了Math类中所有的函数，一般掌握数学函数即可，三角函数则可以忽略。
数学函数
函数名
说明
Abs
返回指定数字的绝对值
Round
将值舍入到最接近的整数或指定的小数位数
Ceiling
返回大于或等于指定数字的最小整数
Floor
返回小于或等于指定数字的最大整数
Max
返回两个指定数字中较大的一个
Min
返回两个指定数字中较小的一个
Sqrt
返回指定数字的平方根
Exp
返回 e 的指定次幂
Log
返回指定数字的对数。
Log10
返回指定数字以10为底的对数
三角函数
函数名
说明
Acos
返回余弦值为指定数字的角度
Asin
返回正弦值为指定数字的角度
Atan
返回正切值为指定数字的角度
Atan2
返回正切值为两个指定数字的商的角度
Cos
返回指定角度的余弦值
Cosh
返回指定角度的双曲余弦值
Sin
返回指定角度的正弦值
Sinh
返回指定角度的双曲正弦值
Tan
返回指定角度的正切值
Tanh
返回指定角度的双曲正切值
共享属性
名称
说明
E
表示自然对数的底，它由常数 e 指定
PI
表示圆的周长与其直径的比值，它通过常数 π 指定
财务函数
非财会人员，可以忽略本节的全部函数。
函数名
说明
DDB
返回用双倍余额递减法或其他指定某些方法，计算的特定周期内资产的折旧
FV
返回基于等额分期付款和固定利率的未来年金值
IPmt
返回在定期偿还固定款项和利率不变的条件下，年金在给定期次内所支付的利息
IRR
返回一系列定期现金流（支出和收入）的内部收益率
MIRR
返回一系列的周期性现金流（支出或收入）的修正内部利率
NPer
返回根据定期定额支付和固定利率而定的年金的期数
NPV
基于一系列定期现金流（支出和收入）和贴现率，返回投资的净现值
Pmt
指定根据定期定额付款和固定利率而定的年金的付款金额
PPmt
返回根据定期定额支付和固定利率而定的年金在指定期间内的本金偿付额
PV
返回根据要在将来支付的定期、定额付款和固定利率指定年金的现值
Rate
返回每一期的年金利率
SLN
指定在一段时间内资产的直线折旧
SYD
返回在指定期间内资产按年限总和折旧法计算的折旧
InTax
计算个人所得税
加密与解密函数
函数名
说明
EncryptText
将字符串加密成另一个字符串
DecryptText
将加密后的字符串解密
MD5Encrypt
用MD5算法加密字符串，加密后的字符串不能被解密
CRCCheckFile
用于校验文件，判断文件是否已经被他人篡改。
CRCCheckString
用于校验字符串，判断自己的重要资料（例如代码）是否已经被他人篡改。
EncryptFile
用于加密文件。
DecryptFile
用于解密文件。
Format
Format用于格式化数据。
在打印或者显示的时候，用户可能有一些特殊的格式要求，例如固定小数位数，用中文的年月日代替日期中的分割横线等等，Format函数正是针对这种需要而提供的。
语法：
Format(Value, Expression)
Value: 数据
Expression: 格式表达式
例如：
Output.Show(Format(1,"000"))
Output.Show(Format(1,"""A""000"))
Output.Show(Format(1.2,"0.00"))
Output.Show(Format(#12/31/2008#,"yyyy年MM月dd日"))
上述代码的输出为：
001
A001
1.20
2008年12月31日
请参考: 格式化数字 格式化日期和时间
IIF
IIF函数根据一个表达式的计算结果，返回两个值中的一个。
语法：
IIF(expression, TrueValue, FalseValue)
expression: 表达式
TrueValue： 表达式成立的时候，返回此值
FalseValue：表达式不成立的时候，返回此值
示例
Dim Val As Integer = 1000
Dim m As String = IIF(Val > 500, "大", "小")
上面的语句完全等效于：
Dim Val As Integer = 1000
Dim m As String
If Val > 500 Then
m = "大"
Else
m = "小"
End If
可以看出，对于一些简单的分支判断，使用IIF函数能够让代码显得更为简洁。
进制转换函数
Foxtable提供了以下函数，用于数字的进制转换。
DecToHex 将10进制数转换为16进制
DecToOct 将10进制数转换为8进制
DecToBin 将10进制数转换为2进制
HexToDec 将16进制数转换为10进制
OctToDec 将8进制数转换为10进制
BinToDec 将2进制数转换为10进制
例如
Output.Show(DecToHex(1000)) '3E8
Output.Show(DecToBin(1000)) '1111101000
Output.Show(HexToDec("7B")) '123
数据转换函数（数据转换）
在程序开发的过程中，我们经常需要将某一类型的数据转换为其它数据类型后使用。
为此Visual Basic提供了以下转换函数：
CStr 转换为字符串(String)。
CDate 转换为日期(Date)。
CDbl 转换为双精度小数(Double)。
CInt 转换为整数(Integer
浙公网安备 33021202002483