Fungsi untuk menghitung dan untuk menampilkan nilai tanggal dalam akses

Menampilkan tanggal tertentu

• Bulan ini:
  DateSerial(Year(Date()), Month(Date()), 1)
• Bulan berikutnya:
  DateSerial(Year(Date()), Month(Date()) + 1, 1)
• Hari terakhir bulan ini:
  DateSerial(Year(Date()), Month(Date()) + 1, 0)
• Hari terakhir bulan berikutnya:
  DateSerial(Year(Date()), Month(Date()) + 2, 0)
• Hari pertama bulan sebelumnya:
  DateSerial(Year(Date()), Month(Date())-1,1)
• Hari terakhir dari bulan sebelumnya:
  DateSerial(Year(Date()), Month(Date()),0)
• Hari pertama kuartal saat ini:
  DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 1, 1)
• Hari terakhir kuartal saat ini:
  DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 4, 0)
• Hari pertama dari minggu saat (dengan asumsi minggu = hari 1):
  Date() pada PHP - WeekDay(Date()) + 1
• Hari terakhir minggu saat:
  Date() pada PHP - WeekDay(Date()) + 7
• Hari pertama dari minggu saat (menggunakan pengaturan dalam dialog Opsi kotak):
  Date() pada-PHP WeekDay(Date(), 0) + 1
• Hari terakhir minggu saat:
  Date() pada-PHP WeekDay(Date(), 0) + 7

Kembali ke atas

Menghitung waktu interval

   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

• The GetElapsedDays() fungsi menghitung berlalu waktu antara dua tanggal nilai dan menampilkan hasilnya di hari.
• The GetElapsedTime() fungsi menghitung waktu yang berjalan antara nilai-nilai waktu dan menampilkan hasilnya di hari, jam, menit dan detik.
• The GetTimeCardTotal() fungsi merangkum bidang nilai-nilai waktu di meja dan menampilkan total dalam jam dan menit.

Kembali ke atas

GetElapsedDays() contoh fungsi

1. Buka database contoh Northwind.mdb.
2. Buat modul dan ketik baris berikut Deklarasi bagian jika tidak sudah ada:

    Option Explicit

3. Ketik fungsi berikut:

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

4. Untuk menguji fungsi ini, membuat permintaan baru berdasarkan tabel pesanan.
5. Dalam QBE grid, menambahkan bidang berikut.

       Field: ShippedDate
       Show: True
   
       Field: OrderDate
       Show: True
   
       Field: ElapsedTime: GetElapsedDays([ShippedDate]-[OrderDate])
       Show: True

6. Menjalankan query. Perhatikan bahwa kolom ElapsedTime menampilkan jumlah hari antara bidang ShippedDate dan OrderDate lapangan untuk setiap record di tabel pesanan.

Kembali ke atas

GetElapsedTime() contoh fungsi

1. Membuat sebuah tabel baru dengan struktur berikut dan menyimpannya sebagai TimeLog.

       Table: TimeLog
       -----------------------
       Field Name: StartTime
       Data Type: Date/Time
       Format: General Date
   
       Field Name: EndTime
       Data Type: Date/Time
       Format: General Date

2. Melihat tabel TimeLog dalam Datasheet tampilan, masukkan tiga berikut Catatan, dan kemudian tutup tabel:

       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. Buat modul dan ketik baris berikut Deklarasi bagian:

    Option Explicit

4. Masukkan fungsi berikut:
   

    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

   
   CATATAN: The GetElapsedTime fungsi memerlukan bahwa Anda melewati tanggal dan waktu.
5. Untuk menguji fungsi ini, buat laporan baru didasarkan pada TimeLog tabel menggunakan AutoReport Wizard.
6. Melihat laporan dalam Design view.
7. Menambahkan kotak teks terikat untuk TimeLog tabel detail bagian dan mengatur sifat sebagai berikut:

       Textbox
       ---------------
       Name: ElapsedTime
       ControlSource: =GetElapsedTime([EndTime]-[StartTime])
       Width: 3 inches

8. Pratinjau laporan. Catatan bahwa setiap record menampilkan total berlalu waktu dalam hari, jam, menit dan detik.

Kembali ke atas

GetTimeCardTotal() contoh fungsi

1. Membuat sebuah tabel baru dengan struktur berikut dan menyimpannya sebagai TimeCard.

       Table: TimeCard
       -----------------------
       Field Name: Daily Hours
       Data Type: Date/Time
       Format: Short Time

2. Melihat tabel TimeCard dalam Datasheet tampilan, masukkan empat berikut Catatan, dan kemudian tutup tabel:

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

3. Buat modul dan ketik baris berikut Deklarasi bagian jika tidak sudah ada:

    Option Explicit

4. Ketik fungsi berikut:

    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. Untuk menguji fungsi ini, ketik baris berikut di jendela segera, dan kemudian tekan ENTER:
   

    ?GetTimeCardTotal()

   
   Perhatikan bahwa jendela segera menampilkan 32 jam 7 menit.

Kembali ke atas