Alttaki gibide kullanılır ve daha iyi olur.
Function Evet_Hayir(deger) As Boolean
If LCase(deger) = "evet" Then Evet_Hayir = True
If LCase(deger) = "hayýr" Then Evet_Hayir = False
End Function
Ben function sonundaki as byte olarak yazmıştım ve byte 0-256 aralığı olduğu için.
Alttaki gibide kullanılır ve daha iyi olur.
Alttaki gibide kullanılır ve daha iyi olur.
WİNPERAX.rar
(Dosya Boyutu: 88,52 KB | İndirme Sayısı: 0)
