--- In [email protected], "sopian_r" <[EMAIL PROTECTED]>
wrote:
> 'Create by sopian
> '26 may 05
> 'function:
> 'itoc : mengkonversi integer ke karakter
> 'ctoi : mengkonversi karakter ke integer
> 'catatan : fungsi ini hanya berlaku untuk integer 1 sampai 702
atau
> (26 x 26)+26
> ' untuk nilai diatas angka tersebut anda harus
> memodifikasinya
> '------------------------------------------------------------------
---
> ----------
> 'contoh:
> 'debug.print itoc(26)
> 'debug.print ctoi("z")
> Private Function itoc(ByVal n As Integer) As String
> Dim arr_data() As String
> Dim m_text As String
> Dim m_bagi As Integer, nchar As String
>
> m_text = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
> arr_data = Split(m_text, ",")
>
> If n < 27 Then
> itoc = arr_data(n - 1)
> Else
> m_bagi = n \ 26
> nchar = n Mod 26
> If nchar = 0 Then nchar = 1
> itoc = arr_data(m_bagi - 1) & arr_data(nchar - 1)
> End If
>
> End Function
>
> Private Function ctoi(ByVal s As String) As Integer
> Dim n As Integer, b As Integer
> If Len(Trim(s)) = 1 Then
> ctoi = Asc(ucase(s)) - 64
> ElseIf Len(Trim(s)) = 2 Then
> n = Asc(Left$(ucase(s), 1)) - 64
> b = Asc(Right$(ucase(s), 1)) - 64
> ctoi = (n * 26) + b
> End If
> End Function
> 'coba gunakan atau modifikasi fungsi ini, smoga berhasil..
'he...he..he truima kuasih banyak mr. sopian.... saya cuma bisa
mendo'akan smoga anda sukses selalu!!!!
terima kasih sekali lagi...
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/
