iyi günler benim yuzde1 adında bir değişkenim var bu değikenimin sonucu ondalık sayı olduğu zaman virgülden sonra ilk rakamı tutsun diğerlerini silsin

yuzde1 = 85.6 -> doğru (bu şekil yazmasını istiyorum)
yuzde1 = 85.6532 -> yanlış

Metin Kutusunun özelliklerinde bulunan Biçim = Standart ve Ondalık Basamaklar =1 olarak düzenleyin.

Örneksiz cevap ancak bu kadar.

dediğiniz gibi denedim olmuyor

dim yuzde1 as double

dim i as integer

dim toplam as long

dim genel as long

yuzde1=0

toplam=0

genel=0

for i=0 to liste2.listcount

genel=genel+1

if liste2.column(2,i)= "Bursa" then

toplam =toplam+1

yuzde1=(toplam1*100)\genel

end if

next i

metin1.value=yuzde1 

kodum bu buradaki yüzdeyi metin kutusuna Örnek 85,7 olarak yazdırmak istiyorum virgülden sonra 1 karakterden fazla olmasın

Lütfen örnek ekleyiniz.

Saygılar...

Eklediğin koda göre;

metin1.value=yuzde1 

yerine

metin1 = Left(yuzde1, InStr(1, yuzde1, ",") + 1)

yazman yeterli.

Arkadaşın geri döneceği yok, konu taşınmıştır.