|
harus pakai function buatan sendiri, function
dibawah ini bisa kamu pakai.
Private Function Kanan(Data As String, Panjang As
Integer) As String
Dim Temp As String
If Len(Data) > Panjang Then
Kanan = Left(Data, Panjang)
Exit Function
End If
Temp = Data
Do While Len(Temp) <= Panjang
Temp = "0" & Temp
Loop
Kanan = Temp
End Function
function diatas untuk merubah dari "5" menjadi
"00005" sesuai panjang yg diinginkan
tinggal modifikasi aja dengan kebutuhan
kamu
----- Original Message -----
Sent: Friday, February 17, 2006 8:55
AM
Subject: [Programmer-VB] Menambah
karakter otomatis di Proses penyimpanan
Dengan hormat,
Saya mau menyimpan data ke database dengan jumlah
karakter yang sama jumlahnya, misalnya saya mau menyimpan harus 5 karakter.
maka jika ada yang input kata cuma 4 karakter maka akan ditambah otomatis satu
karakter misalnya A diakhir kata tersebut, Ada yang tahu nggak gimana caranya
ya ? mohon saranya
Regards
Syafruddin
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
SPONSORED LINKS
YAHOO! GROUPS LINKS
| 