Tayfun
| | Tarih: 12.12.2006, 03:33 Mesaj konusu: Adın Baş Harfi ve Soaydın Tüm Haflerini Büyütme kodu (ASP) | |
| adiniz soyadınız şeklinde girilen bilgiyi Adınız SOYADINIZ şeklinde biçimlendirir.
Kod: Public Function FormatName(data)
If data = "" Then Exit Function
lData = Split(data," ")
lSurname = lData(UBound(lData))
For i=0 To UBound(lData)-1
fl = Left(lData(i),1)
ldcache = Right(lData(i),Len(lData(i))-1)
lData(i) = UCase(fl) & ldcache & " "
temp = temp & lData(i)
Next
temp = temp & UCase(lSurname)
FormatName = temp
End Function
-----------------------------------------------------
|
|
