View Full Version : بدست آوردن درصد
saeedzx
سه شنبه 27 دی 1390, 00:01 صبح
با سلام می خواستم بدونم دستور بدس آوردن درصد چه فرمی
مثلا می گن 1000 تومن داریم
20 % رو کم کنیم
میشه 800 تومن ( مثلا" )
از چه دستوری استفاده می شه :لبخندساده:
IamOverlord
سه شنبه 27 دی 1390, 00:05 صبح
NewValue = YourValue + YourValue * Percent
NewValue - YourValue = YourValue * Percent
(NewValue - YourValue) / YourValue = Percent
Percent = (NewValue - YourValue) / YourValue
hosein3000
سه شنبه 27 دی 1390, 00:15 صبح
با سلام
دوست من خیلی ساده است هر عدد را در 1/100 ضرب کنین درصد اون بدست میاد
به عنوان مثال می تونین از کد زیر استفاده کنین:
Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
Label1.Caption = (a * b) / 100
End Sub
saeedzx
سه شنبه 27 دی 1390, 09:42 صبح
اول تشکر از دوستان
منظور من این بود مثلا
1024 را منهای 25% کنیم می شه 682 ( همون 700 ) می خوام اینو بدست بیارم ( این دستور ماشین حساب (%) رو می خوام )
king ag
سه شنبه 27 دی 1390, 10:03 صبح
می تونی از این تابع استفاده کنی:
Private Function percent(adad As Long, darsad As Integer)
percent = adad * darsad / 100
End Function
هرجا خواستی درصد بگیری میتونی ازش استفاده کنی.مثلا همینی که خودت گفتی اینطوری میشه:
answer = 1024 - percent(1024, 25)
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.