Saya mau Tanya kalau ada rekan yang apa pegertian dari contoh prog
dbawah
Trim
Function TOOTH(ByVal karakter As String) As Integer
Dim pc As Integer
pc = Asc(karakter)
If pc = 64 Then
TOOTH = 0
ElseIf pc = 36 Then
TOOTH = 2
ElseIf pc = 223 Then
TOOTH = 30
ElseIf pc >= 32 And pc <= 35 Then
TOOTH = pc
ElseIf pc >= 37 And pc <= 63 Then
TOOTH = pc
ElseIf pc = 95 Then
TOOTH = 64
ElseIf pc >= 65 And pc <= 90 Then
TOOTH = pc
ElseIf pc = 196 Then
TOOTH = 91
ElseIf pc = 214 Then
TOOTH = 92
ElseIf pc = 220 Then
TOOTH = 94
ElseIf pc = 168 Then
TOOTH = 96
ElseIf pc >= 97 And pc <= 122 Then
TOOTH = pc
ElseIf pc = 228 Then
TOOTH = 123
ElseIf pc = 246 Then
TOOTH = 124
ElseIf pc = 252 Then
TOOTH = 126
End If
End Function
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
SPONSORED LINKS
| Computer internet security | Computer internet business | Computer internet access |
| Computer internet privacy securities | Computer internet help | Computer internet connection |
YAHOO! GROUPS LINKS
- Visit your group "indoprog-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.
