Makale CURRENCY

Bu Makale Yararlı Oldu mu?

  • Evet

  • Hayır


Sonuçlar yalnızca oylamadan sonra görülebilir.
CURRENCY Para Birimi
  • Bu bir değer veri türüdür.
  • -922,337,203,477,5808 (-9,22 E14) 'den 922,337,203,685,477,5807 (+9,22 E14)' e kadar olan
  • aralıktaki numaraları saklamak için Currency veri tipini kullanın
  • Herhangi bir yuvarlama hatası istemediğinizde bu veri tipini kullanmalısınız.
  • Currency tam sayıdır, Single ve Double ondalıklıdır.
  • Bu veri tipi, doğruluğun özellikle önemli olduğu hesaplamalar için kullanışlıdır.
  • Bunlar bir tam sayı biçiminde 64 bit (8 bayt) olarak saklanır, sabit nokta sayısı vermek için 10.000 ile ölçeklendirilir.
  • Bu veri türü 8 bayt kullanır. Varsayılan değer 0'dır.
  • Bu veri türü, belirli sayı biçimlerinde sayı kaydetmenizi sağlar.
  • Kısaltma karakteri @ işaretidir.

VBA:
Sub ExcelTurkey()

    Dim para As Currency
    para = 922337203685477.5807@
    MsgBox para

End Sub
  • Bu veri tipi, ondalık noktasının solunda 15 basamaklı bir doğruluk değerine sahiptir.
  • Bu veri tipinin sağında 4 basamak doğruluk vardır.
VBA:
Sub ExcelTurkey()

    Dim para As Currency
    para = 1.23456789012346E+19
    MsgBox para

    para = 100.123456
    MsgBox para

End Sub

Floating Point Numbers Ondalıklı Sayılar
Örnekler: Single, Double ve Date
Sayının değerini kaydetmek için binlik ve ondalık ayraçları kullanabilirsiniz.
Bu yönteme kayan nokta denir çünkü ondalık nokta yer değiştirebilir.
Bu yöntem, belirli sayıda anlamlı basamağa yaklaşık olarak bir sayıyı temsil eder.
Bu daha sonra bir üs kullanılarak ölçeklendirilir.

Fixed Point Numbers Sabit Noktalı Sayılar
Örnekler: Currency, Decimal
Bir sayı değerini kaydetmek için sabit noktayı kullanabilirsiniz.
Bu yöntemin sabit bir ondalık nokta konumu vardır ve bu nedenle her zaman ondalık noktasından önce ve sonra sabit sayıda basamak vardır.

Losing Precision Hassasiyeti Kaybetmek
5 Decimal basamaklı bir Decimal değerini, Currency cinsinden bir değişkene dönüştürürseniz, kesinlik kaybedersiniz.
Hassasiyet çok önemli olduğunda yuvarlama hatalarını önlemek için Currency veri türünü kullanın.

Yuvarlama Dönüşümü
100,123456
numarasını "A1" hücresine girin ve bunu bir Currency Para Birimi biçimi ile biçimlendirin.

VBA:
Sub ExcelTurkey()

    Dim para As Variant
    para = Range("A1").Value
    If TypeName(para) = "Currency" Then
        MsgBox "Para Birimi"
    End If

End Sub
Bu sayı bir Currency veri türüne dönüştürülür.
Bir Double'ı bir Currency'e dönüştürdüğü bu otomatik veri türü dönüşümü iyi bir şey değildir
ve değeri Excel'e geri yüklerken hassaslık kaybına yol açabilir.
Value2 özelliğini kullanırsanız, bu dönüştürme gerçekleşmez.

VBA:
Sub ExcelTurkey()

    Dim para As Variant
    para = Range("A1").Value2
    If TypeName(para) = "Double" Then
        MsgBox "Double"
    End If

    MsgBox para

End Sub
VBA:
Sub ExcelTurkey()

    Dim parabirimim As Currency
    parabirimim = 1
    Do
        On Error GoTo Hata
        parabirimim = parabirimim * 2
        Debug.Print parabirimim
    Loop
Hata:

End Sub
 
Admin

Yorumlar

Üst Alt