|
> |
Dim NoKontrak as string Private Sub .....() NoKontrak="6020" For I=1 To 3 '(misalkan dipecah jadi 3) NoKontrak=NoKontrak & ToAlphabet(I) Next I End Sub Private Function ToAlphabet(ByVal X as byte) as String ToAlphabet = Chr(X+64) End Function Catatan: Pemecahan Nomor Kontrak jangan lebih dari 26 (A-Z), saya yakin anda paham maksud saya. vbPian [zZzz] |
thanks before... untuk penomoran itu tidak pasti. 2,3, atau bisa aja jadi berapa saja. tergantung perintah dari shiping intructionnya mo dikirim brp kg / ton
jadi A,B,C,D itu hanya untuk tahu sudah brp kali n brp banyak barang tersebut itu diexport.
mungkin idenya mas shopian bisa dipake nih. tapi dengan seperti harus cek bolak-balik.
ada yg lebih simple ... ? hehehe....
Salam,
ChipMunks (Copy Paste Programmer)
mailto: [EMAIL PROTECTED]
Yahoo : Henqy
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
| Programmer | Indonesia | Basic programming language |
| Computer programming languages | Programming languages | Java programming language |
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
