Option Compare Database Private Const R As Single = 1000 Private Const PI As Single = 3.14159265357 Private x0 As Single, y0 As Single Private myline(1 To 6) As Line Private x(1 To 12) As Single, y(1 To 12) As Single Private W As Single, H As Single Dim H秒 As Single, W秒 As Single ...
一、函数 Function WDateToEDate(ByVal curTime As Date) As String Dim MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12), TermName(1 To 24), Fday(1 To 10, 1 To 10) Dim curYear, curMonth, curDay, curWeekday &n ...
ACMAIN_CHM 提供 Public Function getFilesInFolder(sFullFileNamePattern As String) As String() Dim a() As String Dim i As Integer Dim sFileName As String i = 0 sFileName = Dir(sFullFileNamePattern) ...