Int( x + 0.25 )

0 - 0.74999(ไม่รู้จบ)     = 0
0.75 - 1.74999(ไม่รู้จบ) = 1
1.75 - 2.74999(ไม่รู้จบ) = 2
...
...
...

ขอบคุณมากๆเลยค่ะ

ขอเพิ่มเติมครับอาจารย์
ผมลองเขียนฟังก์ชั่นดูเผื่อใช้ได้

Option Compare Database
Option Explicit
Public Function splittext(y As String) As Variant
On Error GoTo kkkk
Dim a As Integer
Dim b As Integer
Dim X() As String
X = Split(y, ".", -1, vbTextCompare)
a = X(0)
If Len(X(1)) = 0 Then
splittext = a
ElseIf Len(X(1)) = 1 Then
b = X(1) * 10
ElseIf Len(X(1)) > 2 Then
b = Left(X(1), 2)
Else
b = X(1)
End If
If b > 75 Then
splittext = a + 1
Else
splittext = a
End If
Exit Function
kkkk:
        splittext = a
Resume Next
        End Function
'1.คัดลอกคำสั่งนี้ไปวางที่module
'2.ในกรณีที่ต้องการให้แสดงผลที่Query เช่น ชื่อfield ข้อมูลของท่านชื่อ numdata(ข้อมูลที่เก็บค่าในตาราง)
'ก็จะได้ resultnumdata:splittext([numdata])
'3.ในกรณีทำงานบนฟอร์มก็เช่นกันนำฟังก์ชั่นนี้ไปใช้ได้เลย หรือนำไปประยุกต์แก้ไขตามความเหมาะสม