Προγραμματισμός με αριθμητικές τιμές

Διομήδης Σπινέλλης
Τμήμα Διοικητικής Επιστήμης και Τεχνολογίας
Οικονομικό Πανεπιστήμιο Αθηνών
dds@aueb.gr

Αριθμητικοί τύποι

Η Visual Basic παρέχει αρκετούς διαφορετικούς τύπους για το χειρισμό αριθμών. Είναι σημαντικό να επιλέξουμε τον κατάλληλο τύπο σύμφωνα με τις ανάγκες μας. Ο παρακάτω πίνακας μπορεί να μας οδηγήσει στην κατάλληλη επιλογή:

Integer	-32,768 to 32,767
Long (long integer)	-2,147,483,648 to 2,147,483,647
Single (single-precision floating-point)	-3.402823E38 to -1.401298E-45 for negative values; 1.401298E-45 to 3.402823E38 for positive values
Double (double-precision floating-point)	-1.79769313486232E308 to -4.94065645841247E-324 for negative values; 4.94065645841247E-324 to 1.79769313486232E308 for positive values
Currency (scaled integer)	-922,337,203,685,477.5808 to 922,337,203,685,477.5807
Decimal	+/-79,228,162,514,264,337,593,543,950,335 with no decimal point; +/-7.9228162514264337593543950335 with 28 places to the right of the decimal; smallest non-zero number is +/-0.0000000000000000000000000001

Αξίζει να προσέξουμε τα παρακάτω:

Οι τύποι Integer και Long εκτελούνται με τη μέγιστη ταχύτητα.
Οι τύποι Single και Double έχουν το μεγαλύτερο εύρος τιμών, αλλά δεν έχουν απόλυτη ακρίβεια. Δεν είναι καταλληλοι για λογιστικούς υπολογισμούς.
Παράδειγμα:
```
Sub main()
    Dim x As Double
    Dim i As Integer
    
    x = 0
    For i = 1 To 10000
        x = x + 0.1
    Next i
    MsgBox Str(x)	' Should be 1000
End Sub
```
Υπολογισμοί με Double και Short είναι τυπικά λιγότερο γρήγοροι από τους υπολογισμούς με Integer και Long.
Ο τύπος Currency είναι ιδανικός για τη φύλαξη οικονομικών στοιχείων.
Ο τύπος Decimal οδηγεί συχνά σε αργούς υπολογισμούς διότι δεν ταιριάζει με τον τρόπο που λειτουργεί ο υπολογιστής.

Μαθηματικές συναρτήσεις

Οι βασικές μαθηματικές συναρτήσεις της Visual Basic είναι οι παρακάτω:

Abs: Απόλυτη τιμή
Sgn: Πρόσημο
Fix: Αφαίρεση του δεκαδικού τμήματος (στρογγύλευση προς το 0)
Int: Στρογγύλευση προς τα κάτω
Sqr: Τετραγωνική ρίζα
Log: Φυσικός λογάριθμος
Exp: e υψωμένο σε δύναμη
Rnd: Ψευδοτυχαίος αριθμός 0 <= χ < 1. Αρνητικό όρισμα θέτει νέα αρχή για παραγωγή αριθμών, θετικό επιστρέφει τον επόμενο αριθμό της σειράς.
Sin: Ημίτονο
Cos: Συνημίτονο
Tan: Εφαπτομένη
Atn: Αντίστροφη εφαπτομένη

Λογιστικές συναρτήσεις

Η Visual Basic παρέχει μια σειρά από συναρτήσεις για υπολογισμούς λογιστικής φύσης σύμφωνα με τον παρακάτω πίνακα:

Υπολογισμός	Συνάρτηση
Calculate the future value of an annuity based on periodic, fixed payments and a fixed interest rate.	FV(rate, nper, pmt[, pv[, type]])
Calculate the depreciation of an asset for a specific time period using the double-declining balance method or some other method you specify.	DDB(cost, salvage, life, period[, factor])
Calculate the interest payment for a given period of an annuity based on periodic, fixed payments and a fixed interest rate.	IPmt(rate, per, nper, pv[, fv[, type]])
Calculate the internal rate of return for a series of periodic cash flows (payments and receipts).	IRR(values()[, guess])
Calculate the modified internal rate of return for a series of periodic cash flows (payments and receipts).	MIRR(values(), finance_rate, reinvest_rate)
Calculate the number of periods for an annuity based on periodic, fixed payments and a fixed interest rate.	NPer(rate, pmt, pv[, fv[, type]])
Calculate the net present value of an investment based on a series of periodic cash flows (payments and receipts) and a discount rate.	NPV(rate, values())
Calculate the payment for an annuity based on periodic, fixed payments and a fixed interest rate.	Pmt(rate, nper, pv[, fv[, type]])
Calculate the principal payment for a given period of an annuity based on periodic, fixed payments and a fixed interest rate.	PPmt(rate, per, nper, pv[, fv[, type]])
Calculate the present value of an annuity based on periodic, fixed payments to be paid in the future and a fixed interest rate.	PV(rate, nper, pmt[, fv[, type]])
Calculate the interest rate per period for an annuity.	Rate(nper, pmt, pv[, fv[, type[, guess]]])
Calculate the straight-line depreciation of an asset for a single period.	SLN(cost, salvage, life)
Calculate the sum-of-years' digits depreciation of an asset for a specified period.	SYD(cost, salvage, life, period)

Μετατροπή αριθμών σε συμβολοσειρές

Η συνάρτηση Format επιτρέπει τον ακριβή καθορισμό της μετατροπής αριθμητικών τιμών σε συμβολοσειρές. Η σύνταξή της είναι:

Format(έκφραση[, εμφάνιση])

όπου η "εμφάνιση" είναι μια συμβολοσειρά που καθορίζει θα μετατραπεί η αντίστοιχη έκφραση σύμφωνα με τους παρακάτω κανόνες:

0: Εμφανίζει ένα ψηφίο ή 0
#: Εμφανίζει ένα ψηφίο ή κενό
.: Καθορίζει το σημείο εμφάνισης των δεκαδικών τιμών
,: Καθορίζει το διαχωρισμό των χιλιάδων
%: Εμφανίζει το πηλίκο του αριθμού με το 100 ως ποσοστό
E+: Εμφανίζει τον αριθμό σε εκθετική μορφή με πρόσημο στους θετικούς εκθέτες
E-: Εμφανίζει τον αριθμό σε εκθετική μορφή χωρίς πρόσημο στους θετικούς εκθέτες
"σύμβολα": Εμφανίζει τα σύμβολα μέσα στα εισαγωγικά

Παράδειγμα:

Sub main()
    Dim x As Currency
    
    x = 1500000
    MsgBox ("Κερδίσατε " + Format(x, "0,0.00 ""EUR""!"))
End Sub

Εμφανίζει:

Περιεχόμενα