جدا کردن اعداد و جمع در یک عدد [بایگانی]

amini699

دوشنبه 19 اسفند 1387, 19:08 عصر

با سلام
چطوری اعدادی را در یک عدد بطور جدا جدا جمع کنیم مثلا123 جداد جدا در 3 جمع بشه میشه456 ممنون میشم

saeid12

دوشنبه 19 اسفند 1387, 19:51 عصر

سلام
باید اول از هم جداکنی با استفاده از mid$ یا Left یا رایت بعد دونه دونه با 3 جمع کنی و به صورت رشته همه رو جمع کنی.
همین.

vbhamed

چهارشنبه 21 اسفند 1387, 07:52 صبح

سلام

منظور اصلي شما از اين كار چيست
اين چيزي كه شما گفتين كه خيلي راحته
طول عددتون رو به دست بياريد و به همون تعداد 3 به يك رشته اضافه كنيد و حاصل عددي رشته رو با عدد اصلي جمع كنيد

Dim a&, plus&, s$, splus$

a = 123
plus = 3

s = CStr(a)
splus = String(Len(s), CStr(plus))

MsgBox a + Val(splus)

amini699

پنج شنبه 22 اسفند 1387, 09:17 صبح

سلام

منظور اصلي شما از اين كار چيست
اين چيزي كه شما گفتين كه خيلي راحته
طول عددتون رو به دست بياريد و به همون تعداد 3 به يك رشته اضافه كنيد و حاصل عددي رشته رو با عدد اصلي جمع كنيد

Dim a&, plus&, s$, splus$

a = 123
plus = 3

s = CStr(a)
splus = String(Len(s), CStr(plus))

MsgBox a + Val(splus)

سلام
ممنون دوست عزیز این کد ولی وقتی اعداد از جمع یک دیگر که دو رقمی میشه جمع اشتباه میشه مثلا 639در 3 اشتباه هستش ممنون میشم

azarsoft

پنج شنبه 22 اسفند 1387, 14:59 عصر

دوست عزیز این کار خیلی ساده است
من یک نمونه برات نوشتم اگه کمی دقت کنی ازش سر در میاری

1- در کادر اول عددی که می خواهی ارقامش جدا بشه رو وارد می کنی
2- در کادر دوم عددی که می خواهی با اون جمع بشن
3- علامت جمع رو می زنی تا در کادر سوم نتیجه رو ببینی