裝作自己厲害到能寫部落格了…
真的只是個水貼…做的比我好的不是大有人在了 而是不計其數了
最簡單的 四捨五入到個位: Iris= Int(Lily + 0.5)
推廣到 四捨五入到10^P位: Iris = Int(Lily * 10 ^ (-P) + 0.5) * 10 ^ P
…但是為什麼不用Round(expression [,numdecimalplaces]) 呢

再推廣到 n-1舍n入到10^P位 ,寫成你們拿去就能用的函式好了:

Public Function Miaow(ByVal Lily As Double, Optional ByVal P As Integer = 0, Optional ByVal n As Byte = 5) As Double 
    If n < 1 Or n > 9 Then
      MsgBox "數學不好的Iris並不能算出來呢"
      Exit Function
    End If
    Miaow = Int(Lily * 10 ^ (-P) + 0.1 * n) * 10 ^ P ‘★
  End Function
 

有★的那句才是重點…
以及 n-1舍n+1入n留I到10^P位 ,I = 0 時就是上式 ,I = 1 時留單 ,I = 2 時留雙:

  Public Function Meow(ByVal Lily As Double, Optional ByVal P As Integer = 0, Optional ByVal n As Byte = 5, Optional ByVal I As Byte = 0) As Double
    If n < 1 Or n > 9 Or I > 2 Then
      MsgBox "數學不好的Iris並不能算出來呢"
      Exit Function
    ElseIf (I > 0) And (Right(Trim(Str(Int(Lily * 10 ^ (-P - 1)))), 1) = Trim(Str(n))) Then
      Meow = IIf(Int(Lily * 10 ^ (-P) + 0.1 * n) * 10 ^ P Mod 2 = 2 - I, Int(Lily * 10 ^ (-P) + 0.1 * n) * 10 ^ P, Int(Lily * 10 ^ (-P)) * 10 ^ P)
    Else: Meow = Int(Lily * 10 ^ (-P) + 0.1 * n) * 10 ^ P
    End If
  End Function
 

上面if 的條件裡那一團不可名狀的東西是判斷尾數是不是n的
以及 覺得自己不可能填錯引數就把最前面的檢驗去掉…

這寫的是什麼啊…我自己都不想看 更不想優化 反正大概這個意思
俺尋思這能行.jpg
Meow這個函式我都沒有驗證能不能用…
反正前面的能用 試過了
嗯…那麼結束的時候該說些什麼呢…