Number 1.0: Números reales tratados como cadenas de texto

[Brozo]

Number 1.0

Number 1.0 es una Librería de Enlace Dinámico realizada en Visual Basic 6.0. Esta librería contiene un objeto "Number" que trata números reales como cadenas de texto (Strings) y puede sumar, restar, multiplicar y dividir otros objetos Number.

Number tiene un atributo y cuatro métodos:

Atributo:
Public Value As String

Métodos:
Public Sub Add(ByVal Numeral As Number) 'Sumar
Public Sub Subtract(ByVal Numeral As Number) 'Restar
Public Sub Multiply(ByVal Numeral As Number) 'Multiplicar
Public Sub Divide(ByVal Numeral As Number, ByVal Decimals As Integer) 'Dividir

Ejemplo:
Private Sub Boton_Click()
Dim A As Number, B As Number
Set A = New Number
Set B = New Number
A.Value = "3.12"
B.Value = "03.123"
A.Divide B, 20 'Dividir
MsgBox A.Value ‘2.22222222222222222222
End Sub

Descarga:
http://www.4shared.com/file/11455291/fa ... umber.html
Link Revisado por EPICA (dll de VB)

Espero sus sugerencias y observaciones.