查人人中国名人网烟中毒什么症状:VB中数字的连接的问题？
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 07:15:23
19和49都是数值型的。希望转换后还是数值型的。因为后面还要将很多类似19.49这样的数值要运算。还有一个如果我想要小数点后是60进1的运算该怎么处理比较好？比如：19.49+17.52结果显示为37.41
定义两个函数
'连接后转换数据类型
Private Function Link2Num(ByVal Inpr As Integer, ByVal Inpr2 As Integer) As Single
Link2Num = CSng(Inpr & "." & Inpr2)
End Function
'以60进制相加，可以做成Function
Private Function AddX60(ByVal Inpr As Single, ByVal Inpr2 As Single) As Single
Dim X1 As Integer, X2 As Integer, X3 As Integer, X4 As Integer
Dim tmp1 As Integer, tmp2 As Integer, x As Integer, y As Integer
Dim tp1 As String, tp2 As String
tp1 = CStr(Inpr) '转化为字符串
tp2 = CStr(Inpr2)
tmp1 = InStr(1, tp1, ".") '小数点位置
tmp2 = InStr(1, tp2, ".")
'分离整数部分和小数部分
X1 = Val(Left(tp1, tmp1 - 1))
X2 = Val(Right(tp1, Len(tp1) - tmp1))
X3 = Val(Left(tp2, tmp2 - 1))
X4 = Val(Right(tp2, Len(tp2) - tmp2))
'以60进制相加
x = (X2 + X4) \ 60 '整除，和的进位部分
y = (X2 + X4) Mod 60 '模，和的小数部分
AddX60 = CSng((X1 + X3 + x) & "." & y) 'Function的返回值
End Function
你详细说明一下这个19、49、以及变成的19.49都是什么类型的呢？
是数字还是字符串？
dim i as integer
dim j as integer
i=19
j=49
msgbox cstr(i) & "." & cstr(j)
CSng(cstr(i1)+"."+cstr(i2))
用字符串连，再转成数字型，整型，或别的，自己选