|
function Is_number ($STR)
{
if (substr ($str, 0, 1) = = "-")
{
$str = substr ($str, 1);
}
$length = strlen ($STR);
$i = 0;
for (; $i < $length; + + $i)
{
$ascii _value = Ord (substr ($str, $i, 1));
if (<= $ascii _value && $ascii _value <= 57)
{
Continue
}
return FALSE;
}
if ($str!= "0")
{
$str = Intval ($STR);
if ($str = = 0)
{
return FALSE;
}
}
return TRUE;
}
function Is_decimal ($STR)
{
if (substr ($str, 0, 1) = = "-")
{
$str = substr ($str, 1);
}
$length = strlen ($STR);
$i = 0;
for (; $i < $length; + + $i)
{
$ascii _value = Ord (substr ($str, $i, 1));
if (0 < $i && $ascii _value = | | <= $ascii _value && $ascii _value <= 57)
{
Continue
}
return FALSE;
}
return TRUE;
} function Is_money ($STR)
{
$dot _pos = Strpos ($str, ".");
if (! $dot _pos)
{
return FALSE;
}
$str 1 = substr ($str, 0, $dot _pos);
if (< strlen ($str 1))
{
return FALSE;
}
if (!is_number ($str 1))
{
return FALSE;
}
$str 2 = substr ($str, $dot _pos + 1, strlen ($STR)-$dot _pos);
if (strlen ($str 2)!= 2)
{
return FALSE;
}
if (!is_number ($str 2))
{
return FALSE;
}
return TRUE;
} function Is_money_len ($str, $int _len, $dot _len)
{
$dot _pos = Strpos ($str, ".");
if (! $dot _pos)
{
return FALSE;
}
$str 1 = substr ($str, 0, $dot _pos);
if ($int _len < strlen ($str 1))
{
return FALSE;
}
if (!is_number ($str 1))
{
return FALSE;
}
$str 2 = substr ($str, $dot _pos + 1, strlen ($STR)-$dot _pos);
if (strlen ($str 2)!= $dot _len)
{
return FALSE;
}
if (!is_number ($str 2))
{
return FALSE;
}
return TRUE;
} |
