جمع کردن عدد میان حروف

[www.pc3enter.tk]

سلام دوستان

من یک سوال کوچک داشتم

می خواستم بدانم چه طور می شود این را + این کرد


3,451,423,807 byte

364,364,807 byte

[محسن واژدی]

سلام علیکم
طول متغیر نتیجه را بصورت مضاعف اعلان کنید


Private Sub Command1_Click()
Dim res As Double
res# = 3451423807# + 364364807
End Sub


موفق باشید

[www.pc3enter.tk]

منظورتون را درست متوجه نشدم

من فقط می خوام : مثلا 13,345,512fsd با این جمع بشه 36,421,297xzqp


و جوابش بشود این 49766809

همین

[M.T.P]

Dim StrNumber1 As String
Dim StrNumber2 As String
Dim IntNumber1 As Long
Dim IntNumber2 As Long
Dim IntSum As Long

StrNumber1 = "13,345,512fsd"
StrNumber2 = "36,421,297xzqp"

StrNumber1 = Replace(StrNumber1, ",", vbNullString)
StrNumber2 = Replace(StrNumber2, ",", vbNullString)

IntNumber1 = Val(StrNumber1)
IntNumber2 = Val(StrNumber2)

IntSum = IntNumber1 + IntNumber2

Cls
Print IntSum

[www.pc3enter.tk]

ممنون دوست عزیز
من یک مشکلی دارم آن هم اینکه وقتی IntNumber1 = Val(StrNumber1) تعداد آن را زیاد می کنم

پیام سر ریزی بافر پیغام می دهد

IntNumber1 = Val(StrNumber1)
IntNumber2 = Val(StrNumber2)
.........
تا
IntNumber9 = Val(StrNumber9)

[محسن واژدی]

اگر دو متغیر را بجای Long از نوع Double اعلان کنید مشکلی در سرریزی بافر برای جمع این دو عدد نخواهید داشت نمونه را نیز در پست شماره 2 مشاهده میکنید موفق باشید