Decimal luokka

Decimal luokka sisältää useita funktioita laskuja, pyöristyksiä ja muunnoksia varten.

        Dim s, r As Decimal
        Dim Tulos As Integer : Dim Byt As Byte
        Dim TulosBitit() As Integer : Dim dbl As Double
        Dim Totuus As Boolean
        Dim Teksti As String
        s = 3 : r = 5
        '
        ' Vertailu
        Tulos = s.CompareTo(r)
        ' Yhtäsuuruus
        Totuus = s.Equals(r)
        ' Tiiviste koodi
        Tulos = s.GetHashCode()
        ' tyyppi
        If s.GetType() Is Tulos.GetType Then s = 4
        ' tyyppikoodi
        Dim tc As System.TypeCode = s.GetTypeCode()
        ' Suurin numeroarvo
        s = Decimal.MaxValue
        ' Pienin numeroarvo
        s = Decimal.MinValue
        ' tekstistä numeroksi
        s = Decimal.Parse("543")
        ' numerosta tekstiksi
        Teksti = s.ToString
        '
        'yhteenlasku
        s = Decimal.Add(s, r)
        'vähennyslasku
        s = Decimal.Subtract(s, r)
        'jakolasku
        s = Decimal.Divide(s, r)
        'kertolasku
        s = Decimal.Multiply(s, r)
        ' kertolasku -1
        s = Decimal.Negate(r)
        'jakojäännös
        s = Decimal.Remainder(s, r)
        'kahden Decimal luvun vertailu
        Tulos = Decimal.Compare(s, r)
        'pyöristys alaspäin kokonaisluvuksi (decimal)
        r = Decimal.Floor(s)
        ' muunnos OLE automation valuutasta ?
        s = Decimal.FromOACurrency(234567)
        ' muuta Integer taulukoksi
        TulosBitit = s.GetBits(s)
        ' numero nolla
        s = Decimal.Zero
        ' numero 1
        s = Decimal.One
        ' pyöristys annettuun desimaali tarkkuuteen
        s = Decimal.Round(r, 7)
        ' katkaisu, vain kokonaisosa jää
        s = Decimal.Truncate(s)
        ' muunnos byteksi
        Byt = Decimal.ToByte(r)
        ' muunnos doubleksi
        dbl = Decimal.ToDouble(s)
        'vastaavasti
        'Decimal.ToInt16
        'Decimal.ToInt32()
        'Decimal.ToInt64()
        'Decimal.ToOACurrency()
        'Decimal.ToSByte()
        'Decimal.ToSingle()
        'Decimal.ToUInt16()
        'Decimal.ToUInt32()
        'Decimal.ToUInt64()
        '