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

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

Jawaban UTS MK. Sistem Operasi

Gambar
1. Jelaskan perbedaan antara sistem operasi dan program aplikasi. Sistem operasi atau OS merupakan sebuah perangkat lunak yang tertanam  atau terinstal pada suatu komputer yang bertanggung jawab untuk mengatur sumber daya(listrik) terhadap perangkat keras lainnya dan sebagai pengatur input output. Operating System diumpamakan sebuah rumah/tempat diinstal nya program-program komputer(application program) sehingga tanpa operating system program aplikasi tidak akan dapat berjalan. Program aplikasi merupakan kumpulan beberapa prosedur-prosedur dan algoritma yang dibuat untuk melaksanakan tugas tertentu yang nantinya akan digunakan untuk membantu melaksanakan pekerjaan penggunanya. 2. Jelaskan apa yang disebut open source dan berikan contoh sistem operasi yang menggunakan sistem tersebut (open source) Sistem operasi open source adalah sistem operasi yang kode sumbernya dibuka bebas oleh pengembangnya sehingga bisa dipelajari, diubah, dikembangkan, dan disebarluaskan...
Baca selengkapnya

Sistem Operasi

Pertanyaan: Apakah buffering, main storage dan overlay itu? B uffering Buffering yaitu proses menunggu pengisian/download video/audio dari internet, biasanya terjadi pada saat membuka video di website atau SmartPhone. Main Storage Main Storage adalah memori yang berfungsi sebagai penampung data, instruksi/progaram dari input device untuk dilanjutkan ke CPU (Central Processing Unit) dan juga tempat untuk menampung data/hasil kerja dari CPU sebelum dilanjutkan ke Output Unit, namun bersifat sementara waktu selama pengolahan berlangsung. sumber: https://brainly.co.id/tugas/8577234 Overlay Overlay merupakan sebuah proses/teknik pemrograman yang berfungsi membagi program yang besar menjadi bagian yang kecil sehingga dapat dimuat secara parsial ke dalam suatu page memori yang berukuran kecil. Pertanyaan: Mengapa apa sistem operasi Windows lebih rentan terkena virus? " Mengapa system operasi Windows lebih rentan terhadap virus ketimbang system operasi lainnya, berikut al...
Baca selengkapnya