Validasi Format Tanggal Di Control Panel Dengan Vb6

4 views
Format tanggal atau date niscaya tidak absurd lagi di pendengaran kita, menyerupai format dd/mm/yyyy, d/m/yy dan masih banyak lagi jenisnya pada Regional Setting di Control Pannel Windows, begitu juga di dalam bahasa pemrograman Visual Basic 6.0 menyediakan banyak aneka macam format tanggal. Adakalanya pada ketika kita membangun dalam sebuah sistem yang terdapat didalamnya bekerjasama dengan function date, kita hanya menerapkan satu jenis format dari majemuk foramt tanggal yang ada. 
Untuk mengaplikasikan dalam Microsoft Visual Basic 6.0 pertama-tama buatlah satu buah Project lalu tambahkan form. Buat sub function dengan nama PeriksaTanggal dan untuk syntaknya menyerupai dibawah ini
Sub PeriksaTanggal()
Dim CekTanggal As String
Dim J, Pesan As Byte
Ulangi:
CekTanggal = Date
If CekTanggal <> Format(Date, “yyyy/mm/dd”) Then
   J = MsgBox(“Ubah Format tanggal jadi yyyy/mm/dd di Control Panel, Regional Settings”, 64 + vbYesNo, “Cek Tanggal”)
      If J = vbYes And CekTanggal <> Format(Date, “yyyy/mm/dd”) Then
         Shell “rundll32.exe shell32.dll,” & “Control_RunDLL INTL.CPL,,4”, 1
      Else
        End
      End If
 Pesan = MsgBox(“Format Tanggal Sudah diganti..?”, vbYesNo + 64, “Konfirmasi”)
 If Pesan = vbYes Then
    If CekTanggal <> Format(Date, “yyyy/mm/dd”) Then
       GoTo Ulangi
    Else
       GoTo Ulangi
    End If
 Else
    GoTo Ulangi
 End If
End If
End Sub
Kemudian double klik pada form dan panggil sub function yang gres kita buat diatas, memakai syntak dibawah ini

Private Sub Form_Load()
Call PeriksaTanggal
End Sub 

Simpan lalu RUN/F5. Jika format tanggal pada PC sama dengan format tanggal yang ditentukan pada sourcode maka tidak ada notifikasi pemberitahuan, jikalau tidak sesuai maka ada notifikasi pesan menyerupai dibawah ini : 

Jika  di klik Yes maka akan muncul Regional and Language menyerupai gambar dibawah ini.

Rubahlah format Regional and Language tersebut diadaptasi dengan format tanggal pada sourcode dengan cara klik Additional Settings lalu klik tab Date. Semoga pembahasan posting Validasi Format Tanggal di Control Panel dengan VB6 sanggup bermanfaat bagi pembaca-pembaca sekalian
Author: 
    author
    No related post!