Cara Mengetahui Hari dan Weton Kelahiran di Excel Menggunakan VBA

Function weton(tanggal As Date) As String
    Dim hariJawa() As String
    hariJawa = Split("Legi Pahing Pon Wage Kliwon", " ")

    Dim namaHari As String
    namaHari = Format(tanggal, "dddd", vbUseSystemDayOfWeek)

    ' Konversi tanggal ke jumlah hari dari 1 Januari 1900
    Dim selisihHari As Long
    selisihHari = tanggal - DateSerial(1900, 1, 1)

    ' Pasaran Jawa berulang setiap 5 hari, mulai dari 1 Jan 1900 = Legi
    Dim pasaranIndex As Integer
    pasaranIndex = selisihHari Mod 5
    If pasaranIndex < 0 Then pasaranIndex = pasaranIndex + 5

    weton = Application.WorksheetFunction.Proper(namaHari) & " " & hariJawa(pasaranIndex)
End Function