【文章內(nèi)容簡介】 符號(hào)來使用；在中午和 11:59 12 小時(shí)配合小寫 pm 來使用。A/P在中午前以 12 小時(shí)配合大寫A符號(hào)來使用；在中午和 11:59 小時(shí)配合大寫P來使用。a/p在中午前以 12 小時(shí)配合小寫a符號(hào)來使用；在中午和 11:59 12 小時(shí)配合小寫p來使用。AMPM在中午前以 12 小時(shí)配合系統(tǒng)設(shè)置的 AM字符串文字來使用；在中午和 11:59 . 間以 12 小時(shí)配合系統(tǒng)設(shè)置的 PM 字符串文字來使用。AMPM 可以是大寫或小寫，但必須和您的系統(tǒng)設(shè)置相配。其缺省格式為 AM/PM。日期函數(shù)示例當(dāng)天日期：=Date()當(dāng)日：=Day(date)當(dāng)月：=Month(date())當(dāng)年：=Year(date())當(dāng)季：=DatePart(q,Date())把日期大寫Function Date2Chinese(iDate) Dim num(10) Dim iYear Dim iMonth Dim iDay num(0) = 〇 num(1) = 一 num(2) = 二 num(3) = 三 num(4) = 四 num(5) = 五 num(6) = 六 num(7) = 七 num(8) = 八 num(9) = 九 iYear = Year(iDate) iMonth = Month(iDate) iDay = Day(iDate) Date2Chinese = num(iYear \ 1000) + _ num((iYear \ 100) Mod 10) + num((iYear _ \ 10) Mod 10) + num(iYear Mod _ 10) + 年 If iMonth = 10 Then If iMonth = 10 Then Date2Chinese = Date2Chinese + _ 十 + 月 Else Date2Chinese = Date2Chinese + _ 十 + num(iMonth Mod 10) + 月 End If Else Date2Chinese = Date2Chinese + _ num(iMonth Mod 10) + 月 End If If iDay = 10 Then If iDay = 10 Then Date2Chinese = Date2Chinese + _ 十 + 日 ElseIf iDay = 20 Or iDay = 30 Then Date2Chinese = Date2Chinese + _ num(iDay \ 10) + 十 + 日 ElseIf iDay 20 Then Date2Chinese = Date2Chinese + _ num(iDay \ 10) + 十 + _ num(iDay Mod 10) + 日 Else Date2Chinese = Date2Chinese + _ 十 + num(iDay Mod 10) + 日 End If Else Date2Chinese = Date2Chinese + _ num(iDay Mod 10) + 日 End IfEnd Function算出每個(gè)月的天數(shù)一法： Dim a, b, ca = Year(Now())b = Month(Now())c = Format((a amp。 / amp。 b + 1 amp。 /1), ) Format((a amp。 / amp。 b amp。 /1), )二法： DateDiff(d, Format(Date, yyyymm01), Format(DateAdd(m, 1, Date), yyyymm01))DateDiff可以算出兩個(gè)日期之間相差幾天！三法：Day(DateAdd(d, 1, Format(Date, yyyymm01)))day函數(shù)可以知道某個(gè)日期是這個(gè)月的第幾天，我們把這個(gè)月的最后一天拿出來DAY一下！應(yīng)該還有更好的方法！比如說可以定義一個(gè)數(shù)組，把每個(gè)月的日子放進(jìn)去，或者說寫一個(gè)函數(shù)算每一個(gè)月的天數(shù)只要考慮一下閨年的問題就可以了！如何得到某年每個(gè)月的第一天是星期幾Private Sub Command1_Click()Dim i As Integer, A As Integer, B As Integer, C As StringA = InputBox(請(qǐng)輸入年份, 某年每個(gè)月的第一天是星期幾)For i = 1 To 12C = A amp。 amp。 i amp。 1B = Weekday(C)Select Case BCase vbSundayPrint A amp。 年 amp。 i amp。 月1日是 星期日Case vbMondayPrint A amp。 年 amp。 i amp。 月1日是 星期一Case vbTuesdayPrint A amp。 年 amp。 i amp。 月1日是 星期二Case vbWednesdayPrint A amp。 年 amp。 i amp。 月1日是 星期三Case vbThursdayPrint A amp。 年 amp。 i amp。 月1日是 星期四Case vbFridayPrint A amp。 年 amp。 i amp。 月1日是 星期五Case vbSaturdayPrint A amp。 年 amp。 i amp。 月1日是 星期六End SelectNext i End Sub計(jì)算天數(shù)及月初月末日期Function 本月天數(shù)(日期 As Date) As Byte 本月天數(shù) = DateSerial(Year(日期), Month(日期) + 1, Day(日期)) 日期 End Function Function 月末(日期 As Date) As Date 月末 = DateSerial(Year(日期), Month(日期) + 1, 1) 1 End Function Function 月初(日期 As Date) As Date 月初 = 日期 Day(日期) + 1 End Function本月最后一日是周幾SELECT Weekday(DateAdd(m,1,DateSerial(Year(Date()),Month(Date()),1)1)) AS 本月最后一日是周幾,下月最后一日是周幾SELECTWeekday(DateAdd(m,2,DateSerial(Year(Date()),Month(Date()),1)1)) AS 下月最后一日是周幾,本月最后一個(gè)周5到月底的天數(shù)SELECT(Weekday(DateAdd(m,1,DateSerial(Year(Date()),Month(Date()),1)1))+1) Mod 7 AS 本月最后一個(gè)周5到月底的天數(shù)。下月最后一個(gè)周5到月底的天數(shù)SELECT(Weekday(DateAdd(m,2,DateSerial(Year(Date()),Month(Date()),1)1))+1) Mod 7 AS 下月最后一個(gè)周5到月底的天數(shù)。本月最后一個(gè)周5的日期SELECTDateAdd(m,1,DateSerial(Year(Date()),Month(Date()),1))1(Weekday(DateAdd(m,1,DateSerial(Year(Date()),Month(Date()),1)1))+1) Mod 7 AS 本月最后一個(gè)周5的日期。下月最后一個(gè)周5的日期SELECTDateAdd(m,2,DateSerial(Year(Date()),Month(Date()),1))1(Weekday(DateAdd(m,2,DateSerial(Year(Date()),Month(Date()),1)1))+1) Mod 7 AS 下月最后一個(gè)周5的日期。數(shù)據(jù)輸入、查詢、計(jì)算、連接：通過英特網(wǎng)的ACCESS聯(lián)接在ACCESS中使用ADO： Private Sub ABC_Click()Dim As New Dim rs As New DSN=alwin。UID=。PWD=。 Select * from tbTABLE, , adOpenDynamic, adLockReadOnly’ amp。 \, adPersistADTGMsgBox (OPERATION OK)End SubPrivate Sub OPEN_Click()Dim strConnect As StringstrConnect = Provider=MSPersistDim rs As New ://遠(yuǎn)程服務(wù)器的IP/test/, strConnectDo While Not rs(USERID).valueLoopEnd Sub 數(shù)據(jù)庫網(wǎng)絡(luò)使用時(shí),速度很慢!即使采取始終隱藏運(yùn)行一個(gè)聯(lián)接后端表的窗體的辦法!也必須運(yùn)行一次一個(gè)無條件的查詢(窗體狀態(tài))后,速度才比較令人滿意!!有沒有更好的辦法!! 在ADSL連接的互連網(wǎng),而不是局域網(wǎng)!一,建立一個(gè)隱藏運(yùn)行的連接后端的窗體.二,在打開啟動(dòng)窗體時(shí)自動(dòng)運(yùn)行一個(gè)用窗體顯示的查詢,注意,要顯示到最后一條記錄,不然,速度只能提高一部分,然后自動(dòng)關(guān)閉該窗體(以上過程都要隱藏,所以實(shí)際上看不見,另因?yàn)橐\(yùn)行一定的時(shí)間,最好設(shè)置一個(gè)正在連接和連接完畢的的提示框),這樣一來,讀取速度幾乎跟在單機(jī)上使用沒有區(qū)別!將用戶輸入的身份證號(hào)15位數(shù)據(jù)轉(zhuǎn)化為18位。 Function IDCode15to18(sCode15 As String) As String 　　39。*　功能:將15的身份證號(hào)升為18位(根據(jù)GB 116431999) 　　39。*　參數(shù):原來的號(hào)碼 　　39。*　返回:升位后的18位號(hào)碼 　　Dim i As Integer 　　Dim num As Integer 　　Dim code As String 　　num = 0 　　IDCode15to18 = Left(sCode15, 6) + 19 + Right(sCode15, 9) 　　39。　計(jì)算校驗(yàn)位 　　For i = 18 To 2 Step 1 　　　num = num + (2 ^ (i 1) Mod 11) * (Mid(IDCode15to18, 19 i, 1)) 　　Next i 　　num = num Mod 11 　　Select Case num 　　Case 0 　　　code = 1 　　Case 1 　　　code = 0 　　Case 2 　　　code = X 　　Case Else 　　　code = Trim(Str(12 num)) 　　End Select 　　IDCode15to18 = IDCode15to18 + code End Function據(jù)身份證號(hào)自動(dòng)輸入出生日期Dim Length As IntegerLength = Len(Me.[身份證號(hào)])If Not IsNull(Length) Then If Length = 15 Then Me.[性別] = IIf(Val(Mid(, 15, 1)) / 2 = Int(Val(Mid(, 15, 1)) / 2), 女, 男) Me.[出生日期] = 19 amp。 Mid([身份證號(hào)], 7, 2) amp。 amp。 Mid([身份證號(hào)], 9, 2) amp。 amp。 Mid([身份證號(hào)], 11, 2) ElseIf Length = 18 Then Me.[性別] = IIf(Val(Mid(, 17, 1)) / 2 = Int(Val(Mid(, 17, 1)) / 2), 女, 男) Me.[出生日期] = Mid([身份證號(hào)], 7, 4) amp。 amp。 Mid([身份證號(hào)], 11, 2) amp。 amp。 Mid([身份證號(hào)], 13, 2) Else MsgBox 身份證號(hào)錯(cuò)誤！ End IfEnd If兩行代碼打開另一數(shù)據(jù)庫PrivateSub命令4_Click()OnErrorGoToErr_命令4_ClickDimstrDbAsStringstrDb=C:\ SendKeys{F11}%FOamp。strDbamp。{enter}Exit_命令4_Click:ExitSubErr_命令4_Click:MsgBoxResumeExit_命令4_ClickEndSub實(shí)現(xiàn)打開外部數(shù)據(jù)庫中的報(bào)表。Private Declare Function apiSetForegroundWindo