Membuat Format Tanggal dan Hari berbahasa Indonesia dengan Array

Membuat Format Tanggal dan Hari berbahasa Indonesia dengan Array - Biasanya kalau kita menggunakan tanggal dengan fungsi Date di vb yang keluar hasilnya berbahasa Inggris misal : Format (Date, "DDDD dd-mm-yyyy") maka hasilnya "Sunday, 07-02-2016". Sekarang bagaimana seandainya  kita ingin merubah formatnya ke Indonesia misalnya "Minggu, 07 Februari 2016", salah satu caranya adalah menggunakan Array. 

Array adalah sekumpulan variabel yang memiliki data yang sama dan dinyatakan nama yang sama, Array merupakan konsep penting dalam pemograman, karena array memungkinkan untuk menyimpan data maupun referensi objek dalam jumlah banyak dan terindex. Jenis Array di bagi menjadi 2 macam diantaranya Array Satu Dimensi dan Array Multi Dimensi.

Array satu Dimensi adalah kumpulan-kumpulan elemen yang memiliki tipe data yang sama dan hanya memilik sati index saja. Sedangkan Array Multi Dimensi adalah array satu dimensi yang telah mengalami perluasan yang terdiri dari baris dan kolom yang berupa Matrix atau Tabel

Contoh Array Satu Dimensi :

Dim bilangan() As Integer

          atau

bilanganku = Array (10)

Contoh Array Multi Dimensi

Dim Jumlah() As Integer

Private Sub ubah()
    Redim Jumlah(10)
    .
    .
End Sub

Private Sub ubahlagi()
    Redim Preserve jumah(15)
    .
    .
End Sub

Setelah kita tau apa itu array, mari kita akan praktekan dan terapkan dengan menggunakan Visual Basic untuk membuat Format tanggal dan hari. Berikut adalah langkah-langkahnya :

Cara membuat format tanggal  hari ini dengan bahasa Indonesia dengan menggunakan Array :

1. Buka form VB Anda

2. Tambahkan 1 Label dan 1 Timer di Form VB Anda

3. Ketik Kode berikut dibawah ini :

Function namahari(dtanggal As Date) As String

Dim Shari As String

aHari = Array("Minggu", "Senin", "Selasa", "Rabu", "Kamis", "Jumat", "Sabtu")

namahari = aHari(Abs(Weekday(dtanggal) - 1)) & "," & "" & Format(dtanggal, "d mmmm yyyy")

End Function

Private Sub Form_Load()

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Date

Label1.Caption = namahari(Date)

End Sub

4. Simpan hasil pekerjaan Anda dan jalankan Program.

Setelah form di run maka label1 akan menghasilkan tampilan hari yang berbahasa indonesia seperti Minggu, 07 Februari 2016

Begitula cara Membuat Format Tanggal dan Hari berbahasa Indonesia dengan Array. Selamat mencoba semoga berhasil....

Related Post: Array Date/Time