Nama Hari dari Tanggal

Berikut ini merupakan fungsi yang digunakan untuk mengetahui nama hari dari suatu tanggal. Misalnya tanggal 26/09/2010, maka nama harinya adalah Minggu.

Buat Module baru dan ketikkan :

Public Function Hari(ByVal Tanggal As Date) As String
Select Case Weekday(Tanggal)
Case 1: Hari = "Minggu"
Case 2: Hari = "Senin"
Case 3: Hari = "Selasa"
Case 4: Hari = "Rabu"
Case 5: Hari = "Kamis"
Case 6: Hari = "Jum'at"
Case 7: Hari = "Sabtu"
End Select
End Function

Contoh penggunaannya :

s = Hari(CDate("Tanggal"))

Sebenarnya ada cara yang lebih singkat, tetapi hasil nilainya tergantung settingan bahasa di komputer. Kodenya adalah :

s = Format(CDate("Tanggal"), "dddd")