/prog/ - VB help — World4ch

Name: _kr0 2012-10-21 11:43

I just want this to return the values of ones, fifties, tens, etc to main..howdo? (This doesn't compile)

Public Function _cadToChange(ByVal _cadAmount As Double)
      Dim ones As Integer
      Dim fifties As Integer
      Dim tens As Integer
      Dim fives As Integer
      Dim pennies As Integer
      Dim NewcadAmount = _cadAmount * 1000

      ones = NewcadAmount \ 1000
      NewcadAmount = NewcadAmount Mod 1000
      fifties = NewcadAmount \ 500
      NewcadAmount = NewcadAmount Mod 500
      tens = NewcadAmount \ 100
      NewcadAmount = NewcadAmount Mod 100
      fives = NewcadAmount \ 50
      NewcadAmount = NewcadAmount Mod 50
      pennies = NewcadAmount \ 10

      Return(ones, fifties, tens, fives, pennies)

    End Function

Name: Anonymous 2012-10-21 11:44

/g/ or Reddit might be able to help you with that.

Name: Anonymous 2012-10-21 11:47

k

Name: Anonymous 2012-10-21 12:38

Prelude> let f d=reverse$snd$foldr(\x(r,l)->let a=r`div`x in(r-a*x,a:l))(floor$d*100,[])[1,5,10,50,100]

Prelude> f 123.45

[123,0,4,1,0]

Name: Anonymous 2012-10-21 13:40

Dim mypenis as Long

Name: Anonymous 2012-10-21 14:55

VB
bad troll

VB help

1 Name: _kr0 2012-10-21 11:43

2 Name: Anonymous 2012-10-21 11:44

3 Name: Anonymous 2012-10-21 11:47

4 Name: Anonymous 2012-10-21 12:38