Cara Membuat Format Tanggal dan Hari di VB6 Bahasa Indonesia
Cara 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)
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
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.