Formata um número para SQL
Function NumberFormat(ByVal sExpr)
sExpr = sExpr & ""
If ereg("^[0-9]{1,2}/[0-9]{1,2}/[0-9]{4}$", sExpr) Then
sExpr = CDbl(CDate(sExpr)) & ""
ElseIf Not IsNumeric(sExpr) Then
NumberFormat = "0"
Exit Function
End If
sExpr = Replace(sExpr, ",", ".")
NumberFormat = sExpr
End Function
Nenhum comentário:
Postar um comentário