BBuyukYap Fonksiyonu
Loading ...Daha önce verdiğim BuyukHarfYap ve KucukHarfYap fonksiyonlarını kullanarak sadece baş harfi büyük yapmaya yarayan fonksiyondur.
Not : BuyukHarfYap ve KucukHarfYap Fonksiyonuna gereksinim duyar.
Public Function BBuyukYap(ByVal vdata As String) As String
Dim I As Long
vdata = Trim$(vdata)
If Len(vdata) < 1 Then
BBuyuk = vdata
Exit Function
End If
vdata = BuyukHarfYap(left$(vdata, 1)) & KucukHarfYap(right$(vdata, Len(vdata) - 1))
For I = 2 To Len(vdata)
If (Mid$(vdata, I, 1) = " ") And (I + 1 <= Len(vdata)) Then
Mid$(vdata, I + 1, 1) = BuyukHarfYap$(Mid$(vdata, I + 1, 1))
End If
Next I
BBuyukYap = vdata
End Function
Kullanımı :
Dim yazi as String
yazi = “Deneme dede DENEME İğıÇöş”
yazi = BBuyukYap(yazi)
MsgBox yazi
Kolay Gelsin.
Benzer Yazılar
Eğer yazıyı beğendiyseniz ya da ekleyecekleriniz varsa, lütfen yorumunuz yazın veya RSS aboneliği ile yeni yazılardan anında haberdar olun.
Yorumlar
Henüz Yorum Yok.
Yorum Yazın