hangs = hangs + 1

Else

Exit Do

End If 

Loop

Plugin.Office.CloseXls 

End Sub

Sub 提出整数部分

hangs = cstr(hangs)
        
        //MessageBox "除以后的hangs值 :" & hangs

        zhao_d = InStrRev(hangs,".",-1,1)
        
       // MessageBox "小数点的位置是：" & zhao_d

        If zhao_d <> 0 Then

            hangs = Clng(left(hangs,zhao_d - 1))
            
            //MessageBox "处理小数点后的hangs值：" & hangs

        Else

            hangs = Clng(hangs)

        End If

End Sub