Examples of equations

This equation converts USD to YEN.


Function evaluate() As Long
   If _BASEVALUE IsNot Nothing AndAlso _BASEVALUE <> ""  Then
   Context.ReturnValue = CStr(CDbl(_BASEVALUE) * 84.2377)
   End If
Return 1
End Function

This equation converts YEN to USD.


Function evaluate() As Long
   If _BASEVALUE IsNot Nothing AndAlso _BASEVALUE <> "" Then
      Context.ReturnValue = CStr(CDbl(_BASEVALUE) / 84.2377)
   End If
Return 1
End Function