Keskustelu: Koodit: QB: Henkilötunnuksen analysointi

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