Function PointFormat(ByVal x)
    '小数前导位 处理.5 和0.5 为0.5
    Dim y As String
    y = Replace(x, "-.", "-0.")

    If x Like ".*" Then
        y = 0 & x
    End If

    PointFormat = y
End Function