VB Script for '/' and 'mod'

[sandya.qtp]

can any body help me in the given script

Script for Quotient and Reminder without using '/' operator and 'mod' function.


Thanks
sandhya

[v.swaminathan]

Hi Sandhya,
Can you let me know as why you do not want to use "/" or MOD in getting these results?

Thanks and Regards,
Swami

[Ankesh]

Hi Sandya,

I have did a sample coding for ur requirement and it is working now. Below is the code which u can use.

Code:

intVar1=56
intOriginalVar1Value=56 ' Keeping the original value for later use
intVar2=8
intOriginalVar2Value=8  ' Keeping the original value for later use
intQuotient =1

While  intVar1 > intVar2
    intVar1=intVar1-intVar2
    intQuotient=intQuotient+1
    

Wend
intReminder = intOriginalVar1Value - (intOriginalVar2Value*intQuotient)
msgbox intQuotient
msgbox intReminder

Do let me know if u have any query.

Regards,
Ankesh

[vIns]

Excellent idea Ankesh.

But it looks like it will give correct results only if intVar1 > intVar2.
Say my requirement is to find the Quotient & reminder for 3 / 8.
I would expect Quotient to be 0 and Reminder to be 3.
But it will return 1 and -5.
so..there is a small correction...i think it will work for all...

Code:

intVar1 = 3
intVar2 = 8

intQuotient = 0

While intVar1 >= intVar2
          intVar1=intVar1-intVar2
          intQuotient=intQuotient+1
Wend

msgbox "Quotient=" & intQuotient
msgbox "Reminder=" & intVar1

[Ankesh]

Hi Vins,

The code which i posted was jsut a sample code to meet the objective. It was just a piece from the perfect code.

Regards,
Ankesh

---

Thanks for updating the code vIns.

[sandya.qtp]

ThanQ very much both of u Ankesh and vIns.