Kirjautuminen

Haku

Tehtävät

Kilpailu

Murra koodi!
Lue ja osallistu!
Voittajia 1 + yrittäjiä 1

Keskustelu: Koodit: QB: Henkilötunnuksen analysointi

Antti Laaksonen [01.02.2002 18:25:50]

#

Yleisön pyynnöstä: henkilötunnuksen analysointi QBasicilla.

DIM kuukaudet(11) AS STRING
FOR i = 0 TO 11
  READ kuukaudet(i)
NEXT
CLS
INPUT "Anna analysoitava henkilötunnus:", htunnus$
PRINT
PRINT
PRINT "Syntymäaika: ";
PRINT MID$(STR$(VAL(LEFT$(htunnus$, 2))), 2) + ". " + kuukaudet(VAL(MID$(htunnus$, 3, 2)) - 1) + "kuuta ";
SELECT CASE MID$(htunnus$, 7, 1)
CASE "+"
  PRINT "18" + MID$(htunnus$, 5, 2)
CASE "-"
  PRINT "19" + MID$(htunnus$, 5, 2)
CASE "A"
  PRINT "20" + MID$(htunnus$, 5, 2)
END SELECT
PRINT
PRINT "Sukupuoli: ";
IF VAL(MID$(htunnus$, 8, 3)) MOD 2 = 0 THEN
  PRINT "nainen"
ELSE
  PRINT "mies"
END IF

DATA tammi, helmi, maalis, huhti, touko, kesä
DATA heinä, elo, syys, loka, marras, joulu

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta