بدست آوردن درصد [بایگانی]

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)