Friendly Desktop Software Dev.

Retail Software

noreply@blogger.com (Dava) — Sat, 29 Oct 2011 01:07:00 +0000

Program Penjualan Retail, untuk Toko kecil, Mini Market yg ingin menerapkan Komputerisasi.

Konversi Karakter menjadi Tanggal

noreply@blogger.com (Dava) — Wed, 19 Oct 2011 08:03:00 +0000

===============================
Public Function ToTgl(Str As String) As Date
Dim Tgl As String, str1 As String
Dim Tgl2 As String, Str2 As String
Dim Tanggal As Date
Dim bln As String, Thn As String

'FORMAT = MM-DD-YY"
str1 = Trim(Str)
bln = Left(str1, 2)
str1 = Right(str1, 5)
Tgl = Left(str1, 2)
str1 = Right(str1, 2)
Thn = str1
Tgl2 = Tgl & "/" & bln & "/" & Thn
ToTgl = Format(Tgl2, "MM/dd/yy")
End Function
=================================

Fungsi diatas saya gunakan untuk mengkonfersi data string menjadi tanggal, dengan formal variabelnya "dd/MM/yy"

Semoga dapat membantu.

ProSoft.Dev Sample Programs

noreply@blogger.com (Dava) — Tue, 18 Oct 2011 07:30:00 +0000

Administrasi Sekolah, SD Siti Kodijah Sby

GL Akuntansi Biaya

Administrasi Rawat Inap. Klinik Nurasi Sepanjang

Sistem Pencatatan Anggota Koperasi SP.

SIM Laundry. Karinta Binatu Kupang NTT

Sistem Payroll. PT. Halimjaya Sakti

GBS. Mister Baso, Sby.