0
Posted 15 June 2004, 07:30
Edited by Johnson, 15 June 2004, 07:40.
Posted 17 March 2005, 10:08
Swanfly, on Jun 15 2004, 10:30 AM, said:
... Please help 
!Posted 07 April 2005, 11:01
Edited by PellePeloton, 07 April 2005, 11:02.
Posted 01 June 2005, 13:22
Posted 01 July 2005, 07:39
<?php
function viiteTarkistusNumero($sViite) {
// (c) Kari Lavikka <tuner@bdb.fi>
// Ruutiinia saa vapaasti käyttää ja kopioida kunhan tämä
// kommentti säilytetään funktion määrittelyssä.
$iKerroin = 7;
$iSumma = 0;
if (strlen($sViite) > 19) {
return "Viitenumero on liian pitkä! Maksimipituus on 19 + 1 merkkiä.";
} else if (strlen($sViite) == 0) {
return "";
}
if (!is_numeric($sViite)) {
return "Viitenumerossa on virheellisiä merkkejä!";
}
for ($iLaskuri = strlen($sViite); $iLaskuri > 0; $iLaskuri--) {
$iSumma += substr($sViite, $iLaskuri - 1, 1) * $iKerroin;
switch ($iKerroin) {
case 7:
$iKerroin = 3;
break;
case 3:
$iKerroin = 1;
break;
case 1:
$iKerroin = 7;
break;
}
}
$iSumma = substr(10 - ($iSumma % 10), -1);
settype($iSumma, "integer");
return $iSumma;
}
?>
<html>
<head>
<title>
Viitenumeron tarkistusnumerogeneraattori
</title>
<meta name="keywords" content="viitenumero, tarkistusnumero, rutiini, php, lähdekoodi" />
<style type="text/css">BODY { margin: 1cm; font-family: sans-serif; }</style>
</head>
<body>
<h1>Viitenumeron tarkistusnumerogeneraattori</h1>
<form action="viitenumero.php" method="get">
<p>Kirjoita alla olevaan kenttään viitenumeron alkuosa. Painettuasi "Laske!" nappulaa, tarkistusnumerolla varustettu viitenumero ilmestyy tekstikentän alapuolelle.</p>
<p>
<input type="text" name="viite">
<input type="submit" value="laske!">
</p><p>
<?php
$numero = viiteTarkistusNumero($HTTP_GET_VARS["viite"]);
if (is_numeric($numero)) {
echo $HTTP_GET_VARS["viite"]."<strong>" . $numero . "</strong>";
} else {
echo "<i>" . $numero . "</i>";
}
?>
</p>
</form>
<hr />
<p>© <a href="/~tuner/">Kari Lavikka</a> -
Tiedoston php lähdekoodi: <a href="viitenumero.phps">viitenumero.phps</a> -
Vastaava funktio Visual Basic muodossa: <a href="viitenumero.bas">viitenumero.bas</a></p>
</body>
</html>
Posted 15 February 2006, 17:26
PellePeloton, on Apr 7 2005, 11:01 AM, said:
Posted 20 February 2006, 19:15
aapinen, on Feb 20 2006, 08:56 PM, said:
Posted 03 June 2006, 21:13
Posted 10 August 2006, 07:15
kickus, on Feb 15 2006, 08:26 PM, said:
Edited by kimmo_, 10 August 2006, 07:17.
Posted 02 January 2007, 12:13
Posted 05 November 2007, 14:03
