Komponen dalam Visual Basic yang berfungsi agar kita dapat menampilkan jam atau tanggal adalah

Untuk menampilkan tanggal tertentu, Anda dapat menggunakan fungsi fungsi dateserial () untuk memanipulasi bagian hari, bulan, dan tahun dari tanggal. Misalnya, Anda dapat menggunakan ekspresi berikut di properti ControlSource kotak teks atau di jendela segera untuk mengembalikan tanggal tertentu:

• Bulan ini:

  Fungsi dateserial (tahun (date ()), bulan (date ()), 1)

• Bulan berikutnya:

  Fungsi dateserial (tahun (date ()), bulan (date ()) + 1, 1)

• Hari terakhir bulan berjalan:

  Fungsi dateserial (tahun (date ()), bulan (date ()) + 1,0)

• Hari terakhir bulan berikutnya:

  Fungsi dateserial (tahun (date ()), bulan (date ()) + 2,0)

• Hari pertama bulan sebelumnya:

  Fungsi dateserial (year (date ()), bulan (date ())-1, 1)

• Hari terakhir bulan sebelumnya:

  Fungsi dateserial (tahun (date ()), bulan (date ()), 0)

• Hari pertama kuartal saat ini:

  Fungsi dateserial (year (date ()), int ((bulan (date)-1)/3) * 3 + 1, 1)

• Hari terakhir kuartal saat ini:

  Fungsi dateserial (year (date ()), int ((bulan (date)-1)/3) * 3 + 4, 0)

• Hari pertama minggu saat ini (dengan asumsi minggu = hari 1):

  Date ()-hari kerja (date ()) + 1

• Hari terakhir minggu saat ini:

  Date ()-hari kerja (date ()) + 7

• Hari pertama minggu saat ini (menggunakan pengaturan di kotak dialog Opsi):

  Date ()-hari kerja (date (), 0) + 1

• Hari terakhir minggu saat ini:

  Date ()-hari kerja (date (), 0) + 7

Untuk informasi selengkapnya tentang menghitung tahun fiskal atau bulan fiskal, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:

210249 cara mendapatkan tahun fiskal atau bulan tanggal tertentu di Access 2000Perhatian: jika Anda mengikuti langkah dalam contoh ini, Anda mengubah database sampel Northwind. MDB. Anda mungkin ingin membuat cadangan berkas Northwind. MDB dan ikuti langkah berikut pada salinan pangkalan data.

Karena nilai waktu disimpan sebagai sebagian kecil dari 24 jam sehari, Anda mungkin menerima hasil pemformatan salah ketika Anda mencoba untuk menambah, mengurangi, mengalikan atau membagi data waktu lebih dari 24 jam. Sebagai contoh, jika Anda mencoba untuk menemukan jumlah jam berlalu antara dua tanggal dengan mengurangi nilai dalam Visual Basic, Anda mungkin menerima nomor salah. Untuk menunjukkan ini, ketik kode berikut di jendela segera dan perhatikan bahwa mengembalikan nilai 0:00 jam daripada nilai yang benar 53:00 jam:

Untuk menyelesaikan masalah pemformatan yang disebabkan oleh nilai waktu yang lebih besar dari jam 24, Anda dapat menggunakan fungsi int () dan csng () dalam Visual Basic untuk memisahkan nilai waktu yang dihitung menjadi variabel yang berbeda untuk hari, jam, menit, dan detik. Misalnya, Anda dapat menyertakan fragmen kode berikut dalam fungsi kustom untuk membuat variabel waktu terpisah:

Anda dapat menggunakan variabel totalhours, totalminutes, dan totalseconds untuk menampilkan nilai waktu sebagai satu unit waktu. Variabel hari, jam, menit, dan detik memungkinkan Anda untuk memecah nilai waktu menjadi bagian waktu. Untuk menampilkan nilai waktu dalam format yang berbeda, Anda dapat menggabungkan variabel ini seperti yang ditunjukkan dalam fungsi contoh berikut:

• Fungsi Getelapseddays () menghitung waktu yang telah berlalu antara dua nilai tanggal/waktu dan menampilkan hasilnya dalam beberapa hari.

• Fungsi Getelapsedtime () menghitung waktu yang telah berlalu antara nilai waktu dan menampilkan hasilnya dalam hari, jam, menit, dan detik.

• Function Gettimecardtotal () merangkum bidang nilai waktu dalam tabel dan menampilkan total dalam jam dan menit.

Untuk membuat fungsi Getelapseddays () , ikuti langkah berikut:

1. Buka database sampel Northwind. MDB.

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

   Option Explicit

3. Ketik fungsi berikut ini:

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

4. Untuk menguji fungsi ini, buat kueri baru berdasarkan tabel pesanan.

5. Di kisi QBE, tambahkan bidang berikut. Field: ShippedDate Show: True Field: OrderDate Show: True Field: ElapsedTime: GetElapsedDays([ShippedDate]-[OrderDate]) Show: True

6. Jalankan query. Perhatikan bahwa kolom ElapsedTime menampilkan jumlah hari antara kolom ShippedDate dan OrderDate kolom untuk setiap dokumen dalam tabel pesanan.

Untuk membuat fungsi Getelapsedtime () , ikuti langkah berikut:

1. Membuat 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. Lihat tabel TimeLog dalam tampilan datasheet, masukkan tiga catatan berikut, 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 di bagian Deklarasi:

   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: Fungsi Getelapsedtime mengharuskan Anda menyebarkannya tanggal dan waktu.

5. Untuk menguji fungsi ini, Buat laporan baru berdasarkan tabel Timelog menggunakan Wisaya autoreport.

6. Melihat laporan di tampilan desain.

7. Tambahkan kotak teks yang tidak terikat ke bagian detail tabel TimeLog dan atur properti sebagai berikut: Textbox --------------- Name: ElapsedTime ControlSource: =GetElapsedTime([EndTime]-[StartTime]) Width: 3 inches

8. Pratinjau laporan. Perhatikan bahwa setiap rekaman menampilkan total waktu yang berlalu dalam hari, jam, menit, dan detik.

Untuk membuat fungsi Gettimecardtotal () , ikuti langkah berikut:catatan: kode contoh dalam artikel ini menggunakan objek akses data Microsoft. Untuk kode ini untuk berjalan dengan baik, Anda harus referensi Microsoft DAO 3,6 objek Perpustakaan. Untuk melakukannya, klik referensi pada menu alat di Penyunting Visual Basic, dan pastikan bahwa kotak centang Microsoft Dao 3,6 objek Perpustakaan dipilih.

1. Membuat 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 tampilan datasheet, masukkan empat catatan berikut, dan kemudian tutup tabel: 8:15 7:37 8:12 8:03

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

   Option Explicit

4. Ketik fungsi berikut ini:

   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 dan 7 menit.