Program Format Tanggal & Waktu Di Visual Foxpro 9.0

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

cara membuat format Tanggal,Hari(Indonesia),Bulan(Indonesia) dan Jam,…
Baik lah dari pada lama-lama silahkan kalian bikin dulu Formnya dan desain sesuai keinginan kalian,tapi kalau kalian ingin sama seperti punya saya yha ga papa juga kok,..
Nih desain saya

Nah untuk membuat timer yang seperti di gambar di atas tepatnya di samping Text6 maka  lihat dulu di Form Kontrol yang berbundar berwarna Merah itu adalah Timer,klik timer tersebut lalu drag di dalam form tepatnya di samping Text6.Setelah selesai klik 1x pada timer1 lalu pada bagian properties ganti intervalnya menjadi 100 lalu klik kanan pada timer1 lagi pilih Code & isi kan koding berikut

thisform.text6.Value=TIME()

Nah setelah selesai dengan timer lalu klik kanan pada form lalu pilih Code maka akan muncul layar untuk kita mengetikan kodenya…tapi sebelum mengetikkan kodenya kalian harus merubah Procedure-nya dulu dari Load menjadi Activate karena Procedure Activate akan aktif secara otomatis pada saat kita menjalankan programnya.
Setelah kaliah rubah procedure-nya menjadi Activate maka silahkan ketik program berikut :

SET DATE ITALIAN

thisform.text1.Value=DATE()
thisform.text4.Value=YEAR(DATE())
thisform.text5.Value=DAY(DATE())

*Untuk Menampilkan Hari Dalam Bahasa Indonesia

hari=DOW(DATE())
DO case
CASE hari=1
thisform.text2.Value="Minggu"
CASE hari=2
thisform.text2.Value="Senin"
CASE hari=3
thisform.text2.Value="Selasa"
CASE hari=4
thisform.text2.Value="Rabu"
CASE hari=5
thisform.text2.Value="Kamis"
CASE hari=6
thisform.text2.Value="Jum'at"
CASE hari=7
thisform.text2.Value="Sabtu"
ENDCASE 

*Untuk Tampilan Bulan Dalam Bahasa Indonesia

bulan=MONTH(DATE())
DO CASE
CASE bulan=01
thisform.text3.Value="Januari"
CASE bulan=02
thisform.text3.Value="Februari"
CASE bulan=03
thisform.text3.Value="Maret"
CASE bulan=04
thisform.text3.Value="April"
CASE bulan=05
thisform.text3.Value="Mei"
CASE bulan=06
thisform.text3.Value="Juni"
CASE bulan=07
thisform.text3.Value="Juli"
CASE bulan=08
thisform.text3.Value="Agustus"
CASE bulan=09
thisform.text3.Value="September"
CASE bulan=10
thisform.text3.Value="Oktober"
CASE bulan=11
thisform.text3.Value="Nopember"
CASE bulan=12
thisform.text3.Value="Desember"
ENDCASE

Nah setelah kalian ketikan koding di atas maka silahkan jalankan formnya maka format Tanggal,Hari,Bulan,Tahun & Jam akan otomatis mengikuti Format waktu yang ada di Komputer/Laptop Kalian.

Ket :
TIME() = Berfungsi Untuk Menampilkan Waktu sekarang
SET DATE ITALIAN = Berfungsi agar Format Tanggal Yang Di gunakan Sesuai s=dengan format tanggal di Indonesia;
DATE()  = Berfungsi Untuk Menampilkan Tanggal,Bulan & Tahun Sekarang;
YEAR(DATE()) = Berfungsi Untuk Menampilkan Tahun Sekarang;
DAY(DATE()) = Berfungsi Untuk Menampilkan Tanggal nya saja;
DOW(DATE()) = Berfungsi Untuk Menampilkan Hari dengan Angka dan di mulai dari angka 1 yaitu Sunday sampai dengan angka 7 yaitu Saturday;
MONTH(DATE()) = Berfungsi Untuk Menampilkan Bulan dengan Angka  dimana Januari adalah Bulan Ke 1 dan Desember adalah bulan Ke 12.

Nah selesailah sudah Program & keterangan Kode-kode yang kita pakai silahkan di pahami tapi kalo ada yang kurang jelas silahkan bertanya,…
Silahkan Mencoba Goog Luck. ..
Nih hasilnya punya saya