UCase(Replace(Replace(uf_isl.cb_mus.Value, "ı", "I"), "i", "İ")) ifadesi kızaltma

[hsayar]

UCase(Replace(Replace(uf_isl.cb_mus.Value, "ı", "I"), "i", "İ")) ifadesi kızaltma

UCase(Replace(Replace(uf_isl.cb_mus.Value, "ı", "I"), "i", "İ"))
ifadesini
UcaseTr(değer) şeklinde kısaltmak mümkünmü?

 

[Ferhat Pazarçevirdi]

Merhabalar,

Bir Function yaratıp, istediğiniz değeri döndürebilirsiniz. Şöyle ki :

Function [B]UCASETR[/B](ByVal metin As String)
[B]UCASETR[/B] = UCase(Replace(Replace(metin, "ı", "I"), "i", "İ"))
End Function

Daha sonra herhangi bir prosedürden bu fonksiyonu çağırabilirsiniz. Şöyle ki :

Sub Deneme01()
Msgbox [B]UCASETR[/B](uf_isl.cb_mus.Value)
End Sub

 

[hsayar]

teşekkür ederim.... istediğim buydu