From: "Geo." 

VB C what's the difference (ducking quickly)

Geo (so it's obvious how my monday is going..)

"Antti Kurenniemi"  wrote in
message news:432ef504{at}w3.nls.net...
> Dude, that's VB code... you're getting a bit old, aren't you? 
>
>
> Antti Kurenniemi
> (I'll see if I can read that...)
>
> "Geo."  wrote in message
news:432ee5d9$1{at}w3.nls.net...
> > I've got a user who want's a dll file loaded on a web server here, I
asked
> > him for the source to the dll so I could see what it's doing and he sent
> > me
> > the below. Since I'm a novice with C++ I figured I'd ask what some of
the
> > C
> > types here think of this as far as internet security, it didn't appear
to
> > me
> > to have a lot of input checking so passing bad info in order to crash it
> > might be possible but I dunno, would appreciate your opinion.
> >
> > Geo.
> >
> >
> >
> > VERSION 1.0 CLASS
> > BEGIN
> >  MultiUse = -1  'True
> >  Persistable = 0  'NotPersistable
> >  DataBindingBehavior = 0  'vbNone
> >  DataSourceBehavior  = 0  'vbNone
> >  MTSTransactionMode  = 0  'NotAnMTSObject
> > END
> > Attribute VB_Name = "ClsFinance"
> > Attribute VB_GlobalNameSpace = False
> > Attribute VB_Creatable = True
> > Attribute VB_PredeclaredId = False
> > Attribute VB_Exposed = True
> >
> > Public Function GetPV(dblRate As Double, dblPer As Double, dblPmt As
> > Double,
> > dblFv As Double)
> > 'GetPV = Format(PV(dblRate, dblPer, dblPmt, dblFv), "Currency")
> > GetPV = PV(dblRate, dblPer, dblPmt, dblFv)
> > End Function
> >
> > Public Function GetPmt(dblRate As Double, dblPer As Double, dblPv As
> > Double,
> > dblFv As Double)
> > 'GetPmt = Format(Pmt(dblRate, dblPer, dblPV, dblFv), "Currency")
> > GetPmt = Pmt(dblRate, dblPer, dblPv, dblFv)
> > End Function
> >
> > Public Function DoFormat(varExpression As Variant, strFormat As Variant)
> > DoFormat = Format(varExpression, strFormat)
> > End Function
> >
> > Public Function GetIPmt(dblRate As Double, Per As Double, NPer As
Double,
> > dblPv As Double, dblFv As Double)
> > GetIPmt = IPmt(dblRate, Per, NPer, dblPv, dblFv)
> > End Function
> >
> >
> > Public Function GetPPmt(dblRate As Double, Per As Double, NPer As
Double,
> > dblPv As Double, dblFv As Double)
> > GetPPmt = PPmt(dblRate, Per, NPer, dblPv, dblFv)
> >
> > End Function
> >
> > Public Function GetNextIR(dblCurRate As Double, dblMargin As Double,
> > dblIndex As Double, dblMaxRate As Double, dblMinRate As Double,
> > dblMaxChange
> > As Double)
> >
> > If (dblCurRate 
dblMaxChange)
> > Then
> >    GetNextIR = dblCurRate + dblMaxChange
> >    Exit Function
> > End If
> >
> > If (dblCurRate > dblMaxRate) And (dblCurRate - dblMaxRate >
dblMaxChange)
> > Then
> >    GetNextIR = dblCurRate - dblMaxChange
> >    Exit Function
> > End If
> >
> > If Abs(dblCurRate - (dblMargin + dblIndex)) > dblMaxChange Then
> >    If dblCurRate < dblMargin + dblIndex Then
> >        If dblCurRate + dblMaxChange > dblMaxRate Then
> >            GetNextIR = dblMaxRate
> >            Exit Function
> >        Else
> >            GetNextIR = dblCurRate + dblMaxChange
> >            Exit Function
> >        End If
> >    Else
> >        If dblCurRate - dblMaxChange < dblMinRate Then
> >            GetNextIR = dblMinRate
> >            Exit Function
> >        Else
> >            GetNextIR = dblCurRate - dblMaxChange
> >            Exit Function
> >        End If
> >    End If
> > Else
> >    If dblMargin + dblIndex > dblMaxRate Then
> >        GetNextIR = dblMaxRate
> >        Exit Function
> >    Else
> >        If dblMargin + dblIndex < dblMinRate Then
> >            GetNextIR = dblMinRate
> >            Exit Function
> >        Else
> >            GetNextIR = dblIndex + dblMargin
> >        End If
> >    End If
> > End If
> >
> >
> > End Function
> >
> >
>
>

--- BBBS/NT v4.01 Flag-5