RE: [Programmer-VB] bikin no urut pake huruf

Thu, 27 Apr 2006 20:50:38 -0700

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]


-----Original Message-----
From: [email protected]
[mailto:[EMAIL PROTECTED] Behalf Of ChipMunks
Sent: Friday, April 28, 2006 8:55 AM
To: [email protected]
Subject: [Programmer-VB] bikin no urut pake huruf


Hello Programmer-VB,

  gimana caranya bikin no urut yang belakangnya pake huruf secara
  otomatis :

  jadi misalnya ada no kontrak 6020, yang quantitynya 100 kg
       kita mo bikin realisasi dari kontrak itu tapi dipecah-pecah
       jadi :
            6020A - 30kg
            6020B - 40kg
            6020C - 30kg

  thanks before

--
Best regards,
ChipMunks (Copy Paste Programmer)
mailto : [EMAIL PROTECTED]
Yahoo  : Henqy




Wahana Programmer Groups Links




Yahoo! Groups Links









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
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke