- Katılım
- 12 Aralık 2005
- Mesajlar
- 211
Değerli Ustalarım Ad ve Soyad Yazılı Listede Sıralamayı Soyada göre yapabilmek için ne yapmam lazım
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Function adi(AsBa As String) As String
Dim i, x, a As Integer
a = Len(AsBa)
If Val(a) < 1 Then adi = ""
For i = a To 1 Step -1
If Mid(AsBa, i, 1) = Chr(32) Then Exit For
x = x + 1
Next
adi = Trim(Mid(AsBa, 1, (a - x)))
End Function
Function soyadi(AsBa As String) As String
Dim i, x, a As Integer
a = Len(AsBa)
If Val(a) < 1 Then soyadi = ""
For i = a To 1 Step -1
If Mid(AsBa, i, 1) = Chr(32) Then Exit For
x = x + 1
Next
soyadi = Trim(Mid(AsBa, (a - x), x + 1))
End Function