Mar.29

BBuyukYap Fonksiyonu

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.

Function
Share this Story:
  • facebook
  • twitter
  • gplus

About Muzaffer Ali AKYIL

Merhabalar, Adım Muzaffer Akyıl, Bilgi teknolojileri ile içli dışlı, teknolojiyi yakından takip eden, web ve masaüstü programlama ile uğraşıp, saatlerce kastığı şeyleri hiç bir karşılık beklemeden paylaşmayı amaç eden biriyim.


Bir yorum bırak

 

Comment