【access小品】牛先生雷人---厘米折算英寸的带分数表示实例

时　间:2010-05-13 11:00:29
作　者:todaynew   ID：10802  城市：武汉
摘　要:厘米折算英寸
正　文:

牛先生：我有建立了一个查询，需要将计算结果转化成英寸，应该用什么办法呢？英寸的表现格式为 “28 8/7”。

todaynew:查询中加一个字段，将需要计算的那个字段乘英寸的折算系数放于该字段即可。

牛先生：不行的。出来以后是小数点的形式 我想要的是 例如：28 7/8 这种格式， 我现在的查询公式是：[身长]/2.54 出来的结果就只是带小数点的数字。 

王樵民：建一个查询字段，如下表达式

q: IIf(Int(([身高]/2.54-Int([身高]/2.54))*8+.5)=0,Int([身高]/2.54) & """",Int([身高]/2.54) & " " & Int(([身高]/2.54-Int([身高]/2.54))*8+.5) & "/8""")

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

　　牛先生于Access软件网论坛发一贴，着实有些雷人。厘米换算英寸本只是系数折算问题，干嘛要搞成文本格式呢？似乎有些鬼打架，不过细想起来也不是没有道理。数据除了用来运算，总还是有提示、提醒、标注的作用。习惯上英寸以带分数表示，因此上Access提供出来的数据，应该尊重这种习惯。

　　正是基于对这个问题所存在意义的思考，使得在下被雷到片刻，便奋力爬起，掸掉身上的泥土，擦干嘴角的血迹，做出以下实例以解牛先生之惑。

　　不料登上论坛，见王先生业已捷足先登，贴出一串代码。看罢，再次被雷翻在地。呜呼，苍天无眼，岂可两雷并击于在下！

点击下载此附件

Public Function inchX(X As Single) As String
'功能：厘米换算英寸，并分数化表示
Dim A As Long, B As Long, C As Long, dec As Single
Dim Ar
Dim i As Long, j As Long
Dim val As Single
If X = 0 Then
    inchX = 0
Else
    Ar = Array(0, 1, 2, 3, 5, 7, 11, 13, 17, 19)
    X = X / 2.54
    A = Int(X)
    dec = X - A
    val = 1
    For j = 2 To 20
        For i = 0 To UBound(Ar, 1)
            If Ar(i) > j Then Exit For
            If Abs(dec - Ar(i) / j) < val Then
                val = Abs(dec - Ar(i) / j)
                C = j
                B = Ar(i)
            End If
        Next
    Next
    If A < 12 Then
        If B <> 0 Then
            inchX = A & " " & B & "/" & C & "''"
        Else
            inchX = A
        End If
    Else
        inchX = Int(A / 12) & "'" & (A Mod 12) & " " & B & "/" & C & "''"
    End If
End If

End Function