Access 中計算及顯示日期/時間值的函數

顯示特定的日期

• 本月：
  DateSerial(Year(Date()), Month(Date()), 1)
• 下個月：
  DateSerial(Year(Date()), Month(Date()) + 1, 1)
• 本月的最後一天：
  DateSerial(Year(Date()), Month(Date()) + 1, 0)
• 下個月的最後一天：
  DateSerial(Year(Date()), Month(Date()) + 2, 0)
• 上個月的第一天：
  DateSerial(Year(Date()), Month(Date())-1,1)
• 上個月的最後一天：
  DateSerial(Year(Date()), Month(Date()),0)
• 本季的第一天：
  DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 1, 1)
• 本季的最後一天：
  DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 4, 0)
• 本週的第一天 (假設星期日 = 第 1 天)：
  Date() - WeekDay(Date()) + 1
• 本週的最後一天：
  Date() - WeekDay(Date()) + 7
• 本週的第一天 (使用 [選項] 對話方塊中的設定)：
  Date() - WeekDay(Date(), 0) + 1
• 本週的最後一天：
  Date() - WeekDay(Date(), 0) + 7

回此頁最上方

計算時間間隔

   StartDate=#6/1/93 8:00AM#
   EndDate=#6/3/93 1:00PM#
   ?Format(EndDate-StartDate,"hh:mm")

 '-------------------------------------------------------------------
 ' This sample code separates a time interval into seven variables for
 ' the following values: days, hours, minutes, seconds, total time in
 ' hours, total time in minutes, and total time in seconds.
 '
 ' The interval argument is flexible; it can be a single value, an
 ' expression, or a field reference.
 '-------------------------------------------------------------------

 Dim totalhours As Long, totalminutes As Long, totalseconds As Long
 Dim days As Long, hours As Long, minutes As Long, seconds As Long
 Dim interval As Variant

 days = Int(CSng(interval))
 totalhours = Int(CSng(interval * 24))
 totalminutes = Int(CSng(interval * 1440))
 totalseconds = Int(CSng(interval * 86400))
 hours = totalhours Mod 24
 minutes = totalminutes Mod 60
 seconds = totalseconds Mod 60

• GetElapsedDays() 函數會計算兩個日期/時間值之間經過的時間，並以天數來顯示結果。
• GetElapsedTime() 函數會計算兩個時間值之間經過的時間，並以天數、小時數、分鐘數及秒數來顯示結果。
• GetTimeCardTotal() 函數會將資料表中的時間值欄位加總，並以小時數和分鐘數來顯示總計。

回此頁最上方

GetElapsedDays() 範例函數

1. 開啟範例資料庫 Northwind.mdb。
2. 建立模組，如果宣告區段中還沒有下面這一行，請輸入這一行：

    Option Explicit

3. 輸入下列函數：

    Function GetElapsedDays (interval)
       Dim days As Long
   
       days = Int(CSng(interval))
       GetElapsedDays = days & " Days "
    End Function

4. 若要測試此函數，請根據 Orders 資料表建立新的查詢。
5. 在 QBE 方格中，加入下列欄位。

   欄位：ShippedDate
   顯示：True
   
   欄位：OrderDate
   顯示：True
   
   欄位：ElapsedTime:GetElapsedDays([ShippedDate]-[OrderDate])
   顯示：True

6. 執行查詢。請注意，ElapsedTime 資料行會顯示 Orders 資料表中每一個記錄的 ShippedDate 欄位和 OrderDate 欄位之間的天數。

回此頁最上方

GetElapsedTime() 範例函數

1. 建立具有下列結構的新資料表，並將其儲存為 TimeLog。

   資料表：TimeLog
       -----------------------
   欄位名稱：StartTime
   資料類型：日期/時間
   格式：General Date
   
   欄位名稱：EndTime
   資料類型：日期/時間
   格式：General Date

2. 在 [資料工作表檢視] 中檢視 TimeLog 資料表，輸入下列三個記錄，然後關閉資料表：
   摺疊此表格展開此表格

   StartTime	EndTime
   5/10/95 4:57:00 PM	5/15/95 2:38:00 AM
   5/11/95 10:17:31 AM	5/24/95 6:05:00 PM
   5/18/95 9:16:43 AM	5/19/95 5:03:00 PM

3. 建立模組，並在宣告區段中輸入下面這一行：

    Option Explicit

4. 輸入下列函數：
   

    Function GetElapsedTime(interval)
   
    Dim totalhours As Long, totalminutes As Long, totalseconds As _
        Long
    Dim days As Long, hours As Long, Minutes As Long, Seconds As Long
   
    days = Int(CSng(interval))
    totalhours = Int(CSng(interval * 24))
    totalminutes = Int(CSng(interval * 1440))
    totalseconds = Int(CSng(interval * 86400))
    hours = totalhours Mod 24
    Minutes = totalminutes Mod 60
    Seconds = totalseconds Mod 60
   
    GetElapsedTime = days & " Days " & hours & " Hours " & Minutes & _
    " Minutes " & Seconds & " Seconds "
   
    End Function

   
   注意： 您必須傳遞日期和時間給 GetElapsedTime 函數。
5. 若要測試此函數，請使用自動產生報表精靈，根據 TimeLog 資料表建立新的報表。
6. 在 [設計檢視] 中檢視報表。
7. 在 TimeLog 資料表的詳細區段中加入未結合文字方塊，並設定其屬性如下：

   文字方塊
       ---------------
   名稱：ElapsedTime
   控制項資料來源：=GetElapsedTime([EndTime]-[StartTime])
   寬度：3 英吋

8. 預覽報表。請注意，每個記錄都會以天數、小時數、分鐘數及秒數來顯示總共經過時間。

回此頁最上方

GetTimeCardTotal() 範例函數

1. 建立具有下列結構的新資料表，並將其儲存為 TimeCard。

   資料表：TimeCard
       -----------------------
   欄位名稱：Daily Hours
   資料類型：日期/時間
   格式：簡短時間

2. 在 [資料工作表檢視] 中檢視 TimeCard 資料表，輸入下列四個記錄，然後關閉資料表：

       8:15
       7:37
       8:12
   8:03

3. 建立模組，如果宣告區段中還沒有下面這一行，請輸入這一行：

    Option Explicit

4. 輸入下列函數：

    Function GetTimeCardTotal ()
   
    Dim db As DAO.Database, rs As DAO.Recordset
    Dim totalhours As Long, totalminutes As Long
    Dim days As Long, hours As Long, minutes As Long
    Dim interval As Variant, j As Integer
   
    Set db = dbengine.workspaces(0).databases(0)
    Set rs = db.OpenRecordset("timecard")
    interval = #12:00:00 AM#
       While Not rs.EOF
          interval = interval + rs![Daily hours]
          rs.MoveNext
       Wend
    totalhours = Int(CSng(interval * 24))
    totalminutes = Int(CSng(interval * 1440))
    hours = totalhours Mod 24
    minutes = totalminutes Mod 60
   
    GetTimeCardTotal = totalhours & " hours and " & minutes & " minutes"
   
    End Function

5. 若要測試此函數，請在即時運算視窗中輸入下面這一行，然後按 ENTER：
   

    ?GetTimeCardTotal()

   
   請注意，即時運算視窗中會顯示 32 小時又 7 分鐘。

回此頁最上方