编写了一个自定义函数,能将自然数转化成以民间的“正”字计数,只是4字用止字代替(少上面一横,民间是少下面一横)
Public Function Zheng(Num As Long) As String
Dim i As Integer, j As Integer, Mstr As String
L = Int(Num / 5)
Y = Num Mod 5
If L > 0 Then
For i = 1 To L
Mstr = Mstr & "正"
Next
End If
Select Case Y
Case 1
Mstr = Mstr & "一"
Case 2
Mstr = Mstr & "丄"
Case 3
Mstr = Mstr & "上"
Case 4
Mstr = Mstr & "止"
End Select
Zheng = Mstr
End Function
汉字中“正”是5笔字,其实,5笔的字还有“白”、“用”等很多,具体是谁首先启用“正”字很难说,不过应该是个会写汉字的人,方便一五一十的记数,也只有使用汉字的人会用。世界上很多国家不习惯使用汉字,他们有他们的记数方式,所以国际上没有推广这种方法。
实际上,我国以前记数方法也有多种,例如“发竹签”,码头搬运一包货物给一根签,最后数签数结算所搬运货物数,不会去写“正”字。
以上就是关于在excel中数字能用画正字的方式表示嘛,比如5就是一个正字,4就是正字少一笔全部的内容,包括:在excel中数字能用画正字的方式表示嘛,比如5就是一个正字,4就是正字少一笔、画正字计数的方法是谁发明的,国际上用这种方法吗、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:聚客百科
评论列表(0条)