تابع معرفی کنید

[ben-robot]

سلام دوستان یه دستور می خوام مثلا متغیر ما بود x=125بیاد یکان دهگان و صدگان ان را جدا کنه ؟ :agree:

[man2008]

پاسخ : تابع معرفی کنید

چیزی که الان برای 3 رقمی به ذهنم میرسه


dim number as string*3
dim s as string*3 'yekan
dim d as string*2 'dahgan
dim y as string *1 'sadgan
if len(number)=3 then
s=mid(number,1,1)
s=s*100
d=mid(number,2,1)
d=d*10
y=mid(number,3,1)

[ben-robot]

پاسخ : تابع معرفی کنید

ای وای یادم رفت بگم در کدویژن

[moha3]

پاسخ : تابع معرفی کنید

Yekan=x%10;
Dahgan=(x/10)%10;
Sadgan=(x/100)%10;