常用内部函数数学函数
字符串函数
日期和时间函数
增减口期函数：DateAdd(要增减口期形式，增减量，要增减的口期) 例：计算2 周后的日期:DateAdd(”ww”,2,#9/1/2006#),结果"2006-9-15n
求日期Z差函数：DateDiffC要间隔日期形式，日期一，日期二）
例：计算生日还有多少天:DateDiff（”d”, Now, # 12/1/2006#）,结果为74
函数中的“要增减口期形式”或“要间隔口期形式”可参见卜•表中的形式：
数据类型转换函数
Sub Appdoc(ByValdocpath As String, ByVai txt As String)'追加记录函数Open docpath For Append As #1
Print #1, txt
Close #1
End Sub
Public Function openfile(ByValfilepath As String) As String'读入文件函数Dim s As String
Open filepath For Input As #1
While Not EOF(1)
Line In put #1, sline
s = s &sline&vbCrLf
Wend
Close #1
ope nfile = s
End Function
Public Function savefile(ByValfilepath As String, ByVai txt As String)'保存文件函数
Open filepath For Output As #1
Print #1, txt
Close #1
End Function
Private Sub Command1_Click()
Dim I As Integer
Open H C:\1 .TXT" For Output As #1
For I = 1 To 4
Print #1, InputBoxf*请输入您的第”& I & ”笔数据:”)
Next
Close #1
MsgBox M去 C 盘看看 1 .TXT 吧!”,, ,，A_AH
End Sub
去除
Private Sub Form_Load()
Commandl.Caption = ”写入数据"
End Sub
Private Sub Command1_Click()
Dim I As Integer
Open H C:\1 .TXT” For Output As #1
For I = 1 To 4
Print #1, InputBoxf*请输入您的第”& I & ”笔数据:”)
Next
Close #1
MsgBox ”去C 盘看看1 .TXT 吧匚,,，A_AH
End Sub
Private Sub Form_Load()
Commandl.Caption = ”写入数据”End Sub。