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.