Cara Membuat Format Tanggal dan Hari di VB6 Bahasa Indonesia

Ditulis olehMC Project -
Artikel Terkait Tutorial VB6
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-2019". Sekarang bagaimana seandainya  kita ingin merubah formatnya ke Indonesia misalnya "Minggu, 07 Februari 2019", 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.
Format Tanggal dan Hari berbahasa Indonesia dengan Array di VB6

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 2019

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


Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :


Rekomendasi Web Hosting
  1. 20rb perbulan. Diskon hingga 40% kode kupon: MCP Daftar disini (apache).
  2. 10rb perbulan. Diskon hingga 75% kode kupon: MCP Daftar disini (litespeed).
  3. 10rb perbulan. Diskon hingga 70% kode kupon: aff-MCP Daftar disini (apache).
Tag