Public Function Vmod(ByVal X1 As Variant, X2 As Variant) As Boolean Dim temp_str As String
temp_str = Format(CDec(X1) / CDec(X2), "0.00000")
If Right(temp_str, 6) = ".00000" Then
Vmod = True
Else
Vmod = False
End IfEnd Function用来取代系统mod运算符的,因为现在要对超长整数运算,只想知道前者是否可以整除后者.
有更好的办法没有,大量运算实在是感觉效率不高
temp_str = Format(CDec(X1) / CDec(X2), "0.00000")
If Right(temp_str, 6) = ".00000" Then
Vmod = True
Else
Vmod = False
End IfEnd Function用来取代系统mod运算符的,因为现在要对超长整数运算,只想知道前者是否可以整除后者.
有更好的办法没有,大量运算实在是感觉效率不高
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货