牛先生:我有建立了一个查询,需要将计算结果转化成英寸,应该用什么办法呢?英寸的表现格式为 “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