我在VB6 的作法. 若要無條件捨去小數, POS 設0, POS1 也設0. Public Function RoundA(Num As Double, Pos As Integer, Optional Pos1 As ...
social.msdn.microsoft.com