' mas jenar, fungsi berikut cuman saya test u angka 1 sampai 702, buat angka
' diatas itu kayaknya masih belum bisa, mgk yg lain bisa nambahin
Option Explicit
'
Public Function NumToCase(iNum As Integer) As String
Dim iMod As Integer, iDiv As Integer, sResult As String
iDiv = iNum \ 27
iMod = iNum Mod 27
If iNum <= 26 Then
sResult = Chr(iDiv + iMod + 64)
Else
sResult = Chr(iDiv + 64) & Chr(iDiv + iMod + 64)
End If
NumToCase = sResult
End Function
'
Public Sub Test()
Debug.Print NumToCase(702)
End Sub
'
best regards
[wwn]
On 12/20/05, Jenar Suseno <[EMAIL PROTECTED]> wrote:
> Minta petujuk .....
>
> Aku mau buat konversi angka ke huruf, misalnya 1 jadi
> A, 2 jadi B,..26 jadi Z, 27 jadi AA..., trus 702 jadi
> ZZ, nah...bgmn ya logika programnya supaya berapapun
> angkanya akan dibuat konversinya ke huruf?
>
> makasih
>
> jenar
>
>
------------------------ Yahoo! Groups Sponsor --------------------~-->
Most low income homes are not online. Make a difference this holiday season!
http://us.click.yahoo.com/5UeCyC/BWHMAA/TtwFAA/k7folB/TM
--------------------------------------------------------------------~->
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
