Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

【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



Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助