北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
我有建立了一个查询，需要将计算结果转化成英寸，应该用什么办法呢？英寸的表现格式为 “28 8/7”
这不难，再加点代码即可：
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
点击下载此附件
点击下载此附件