10进制转化成60进制

63650771

输入111;输出为:己巳己巳己巳

输入333;输出为:辛巳辛巳辛巳


请帮忙写成自定义函数

静听溪流

这个你需要告诉别人从11-59分别由什么表示的
如  11=》甲  12=》乙  ……

fzxba

好的， 己巳 111
那么 庚午 辛未 壬申 癸酉 甲戌 乙亥  用什么呢 ？
如 辛未 111.33333……

perfect131

........................................

山菊花

输入111;输出为:己巳己巳己巳
输入333;输出为:辛巳辛巳辛巳
如此，本质还是十进制，只不过是以“己巳”代替1、以“乙亥”代替2、以“辛巳”代替3……

1. Function Test(v$) As String
   
2.     Dim x$()
   
3.     x = Split("甲子,己巳,乙亥,辛巳,丁亥,癸巳,己亥,乙巳,辛亥,丁巳,癸亥", ",")
   
4.     For i = 1 To Len(v)
   
5.         If Mid(v, i, 1) Like "#" Then
   
6.             Test = Test & x(Mid(v, i, 1))
   
7.         Else
   
8.             Test = Test & Mid(v, i, 1)
   
9.         End If
   
10.     Next
    
11. End Function

复制代码