How Can we add two numbers in VB script without using Arithmatic operators

[kotaramamohana]

Hi Friends,

Can anyone tell, How can we add two numbers in VB script without using arithmatic operators
a=10
b=5

[arescool]

Hi,
I wonder why no one has ever answered to this question :o

Let me try :

Code:

Dim intNumber1 : intNumber1 = 10
Dim intNumber2 : intNumber2 = 5
Dim strDump : strDump = Empty

For i = 1 To intNumber1
    strDump = strDump&"A"
Next

For i=1 To intNumber2
    strDump = strDump&"A"
Next

Msgbox Len ( strDump )

I know this is a very crude solution, so i will be looking to improve on it myself and if anyone of you can suggest a better solution , please do that ...

[pavansri]

you are alsmost there arescool
but your code would return 31, Which is not the answer expected here.

how about this?

Code:

intNum1=10
intNum2=5

For i=1 to intNum1

    strDump=strDump & i & "X"

Next

For j=1 to intNum2

    strDump= strDump & j & "X"

Next

arrDump = split(strDump,"X",-1)

msgbox "Sum of " & intNum1 & " & " & intNum2 & " is " & UBound(arrDump)

[supputuri]

try this below, simple way in QTP

Code:

DataTable.AddSheet("AddNumberwithoutArthOper").AddParameter "FirstNumber",iFirstNumber
DataTable.GetSheet("AddNumberwithoutArthOper").AddParameter "SecondNumber",iSecondNumber
DataTable.GetSheet("AddNumberwithoutArthOper").AddParameter "Sum", "=SUM(A1:B1)"
msgbox DataTable("Sum","AddNumberwithoutArthOper")

Let me know if you need further iNfo...

If you feel this answer solved your query, please mark the status as "solved"and click on "Give Reputation for this user" buuton in my post.

[kordirko]

Using pure vbscript

Code:

a = 10
b = 5

d = now
d1 = DateAdd("s", a, d )
d1 = DateAdd("s", b, d1)

result = DateDiff("s", d, d1 )
MsgBox "Sum of "& a & " and " & b & " is " & result