Private Sub Command1_Click()
Text2.Text = Val(Text2.Text) / Val(Text1.Text) * 100 & "%"
End Sub
当前时间为一个double值：
昏暗5.3，双
N =现在
或直接
N = CDBL（现在）
public function ConValue(IntegerValue as long) as string
dim Result as long
result = integervalue*100
convalue=str(result)&"%"
end function
你把数字除以100再加一个百分号不就完了吗？
如有用请采纳。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024