Membuat Format Tanggalan Indonesia



Sediakan 1 Project, 1 Form, 1 Modul

Option Explicit
Public VAR_Tanggal, TglSekarang As String

Public Function Format_Tanggal_Indonesia() As String
Dim DataTanggal, DataBulan, DataTahun, NamaBulan As String
VAR_Tanggal = Format(Date, "DD-MMM-YYYY")
DataTanggal = Left$(VAR_Tanggal, 2) 'Mengambil data yg akan diolah menjadi data Tanggal
DataBulan = Mid$(VAR_Tanggal, 4, 3) 'Mengambil data yg akan diolah menjadi data Bulan
DataTahun = Right$(VAR_Tanggal, 4) 'Mengambil data yg akan diolah menjadi data Tahun

If DataBulan = "Jan" Then
NamaBulan = " Januari "
ElseIf DataBulan = "Feb" Then
NamaBulan = " Februari "
ElseIf DataBulan = "Mar" Then
NamaBulan = " Maret "
ElseIf DataBulan = "Apr" Then
NamaBulan = " April "
ElseIf DataBulan = "May" Then
NamaBulan = " Mei "
ElseIf DataBulan = "Mei" Then
NamaBulan = " Mei "
ElseIf DataBulan = "Jun" Then
NamaBulan = " Juni "
ElseIf DataBulan = "Jul" Then
NamaBulan = " Juli "
ElseIf DataBulan = "Aug" Then
NamaBulan = " Agustus "
ElseIf DataBulan = "Agu" Then
NamaBulan = " Agustus "
ElseIf DataBulan = "Sep" Then
NamaBulan = " September "
ElseIf DataBulan = "Oct" Then
NamaBulan = " Oktober "
ElseIf DataBulan = "Okt" Then
NamaBulan = " Oktober "
ElseIf DataBulan = "Nov" Then
NamaBulan = " Nopember "
ElseIf DataBulan = "Nop" Then
NamaBulan = " Nopember "
ElseIf DataBulan = "Dec" Then
NamaBulan = " Desember "
ElseIf DataBulan = "Des" Then
NamaBulan = " Desember "
End If
TglSekarang = DataTanggal + NamaBulan + DataTahun
Format_Tanggal_Indonesia = TglSekarang
End Function

Dalam contoh ini
Pemanggilan Deklarasi
MsgBox Format_Tanggal_Indonesia, vbOKOnly, "Format Tanggal Indonesia LabQ5"

Komentar

Posting Komentar

Postingan populer dari blog ini

Membuat Split File Zip Dengan 7-Zip

Gambar
Saya kesulitan apabila hendak mengupload file setup dari Aplikasi yang saya buat untuk saya email atau lain sebagainya. Karena layanan Internet yang saya miliki hanya dari kantor, yang mana user Internet-nya dibatasin untuk menDownload maupun mengUpload file. Selama itupula saya tidak dapat mengupload, membagi maupun mengirimkan file dalam jumlah besar. Namun sekarang sudah ada solusinya yaitu dengan mensplit file setup saya yang relatif besar (diatas 10 Mb). Saya menggunakan 7-Zip sebagai mesin pengkompresnya. Mungkin dengan WinRar juga bisa, namun untuk saat ini saya menggunakan 7-Zip. Langkahnya cukup simpel dan cepat, saya hanya melakukan beberapa klik dan klak saja dan File Zip split tercipta. Untuk melakukannya Pilih/ Sorot/ Seleksi File / Foldernya Klik Kanan/ Klak >> Pilih/ Sorot/ Seleksi 7-Zip Add to archieve Setting/Pilih Lokasi/ Folder untuk menyimpan file-nya Pilih Jenis/ Tipe Split pada Dropdown Split to Volume, bytes: Pilih Ok Apabila ingin dipasword maka masukkan/k
Baca selengkapnya

Load Dan Insert Image ke MySQL BLOB dengan VB6

Sumber Dari http://heng-line.com/?p=66 MySQL memiliki fasilitas penyimpanan berupa objek gambar dengan data type BLOB. Berikut adalah contoh untuk mengakses table pada MySQL pada colom dengan data type BLOB dari Visual Basic 6 menggunakan ADODB dan Stored Procedure. uat database MySQL, Contoh: CREATE DATABASE contoh; Buat Tablenya, Contoh: CREATE TABLE pegawai (id_pegawai INT AUTO_INCREMENT, nama VARCHAR(50), foto MEDIUMBLOB); Buat Procedure, Contoh: DELIMITER$$ CREATE PROCEDURE pegawai_p( pchProc CHAR(1), pinIdPegawai INT, pvcNama VARCHAR(50), pmbFoto MEDIUMBLOB ) BEGIN /*Khusus untuk meload data berdasarkan id_pegawai tertentu*/ IF pchProc = ‘R’ THEN SELECT id_pegawai, nama, foto FROM pegawai WHERE id_pegawai = ‘1’; END IF; /*Khusus untuk melakukan insert data ke table pegawai*/ IF pchProc = ‘N’ THEN INSERT pegawai (nama, foto) SELECT pvcNama, pmbFoto; END IF; END$$ DELIMITER; Berikut adalah yang harus kita buat di Visual Basic 6 ‘Tambahkan variable global pada
Baca selengkapnya

Pembuatan Function PowerBuilder

Gambar
Prakata : Tulisan atau artikel ini dimaksudkan bukan untuk mengajarkan kepada Anda yang membacanya, namun Kami sekedar menulis dengan maksud apabila Kami lupa akan cara pembuatan Function pada PowerBuilder, maka Kami dapat ingat kembali dengan melihat dan membaca tulisan Kami ini. Namun alangkah baiknya apabila bermanfaat bagi Anda-anda yang membacanya, tak sedikitpun terbersit niat bahwa “Kami adalah seorang master dalam bidang pemrograman”, Kami hanya mencoba menuangkan sedikit pengetahuan Kami untuk dibagikan kepada rekan-rekan yang mungkin masih awam terhadap pemrograman PowerBuilder. Definisi Function : ialah prosedur yang dapat memberikan suatu hasil balik ke program yang memanggilnya atau tidak meberikan hasil balik sama sekali. Hasil balik ini biasanya berupa suatu nilai yang dibutuhkan oleh bagian program yang memanggilnya. Apa yang membedakan pemrograman PowerBuilder dengan pemrograman lainnya?, hakikat sebuah pemrograman adalah sama, yang membedakan hanyalah bahasa
Baca selengkapnya