מספר עשרוני בVBA אקסס

[ארי]

צהריים טובים
יש לי קוד VBA באקסס שצריך להכניס מספר לתוך עמודה בטבלה, העמודה בטבלה מוגדרת על 'כפול', ובקוד המשתנה של המספר מוגדר כ'Double'.
אבל בכל זאת, אם יש שארית למספר הוא מעגל אותו למספר השלם הקרוב.
למה זה קורה?
תודה רבה.

עריכה: אני יפרט קצת יותר, זה לא מספר סתם, אלא חשבון של Dsum לחלק לDcount (אמור לחשב סכום של כל תשלום).
ובחילוק הוא תמיד מחזיר מספר שלם.
אם אני סתם כותב לו מספר להכניס לטבלה הוא עושה את זה מצוין, אבל כנראה הבעיה היא בחילוק, אבל אני לא מבין למה שיהיה לו בעיה להחזיר מספר עשרוני.
תודה!

[yossiz]

פוסט זה נמחק!

[OdedDvir]

@ארי ב-VBA, חלוקה של שני שלמים מטיפוס Integer נותנת תמיד מספר שלם. מתעלמים מהשארית לגמרי.
אתה צריך להכניס את התוצאה של DCount ו-DSum לתוך משתנה מסוג Double, (או לבצע Casting מפורש) ואז לבצע את החישוב:

Dim mySum As Double
Dim myCount As Double
Dim result As Double

mySum = DSum(....)
myCount = DCount(....)
result = mySum / myCount

[ארי]

@OdedDvir תודה, אבדוק.
וסתם התעניינות, עכשיו הDcount והSum לא נמצאים בשום משתנה, זה חלק מהמשתנה של התוצאה

Dim result as Double
result = Dsum(....) / Dcount(....)

זה גם בעייתי?

[OdedDvir]

@ארי בקצרה - כן.
טיפוס הנתונים שמוחזר מהן הוא Variant, מה שאומר שהוא נקבע בזמן הריצה. מסתבר ש DCount מומרת ל-Integer, כי ספירה מחזירה מספר שלם.

[ארי]

@OdedDvir אוקיי, טוב לדעת.
תודה!