Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- CLEAR
- m.cislo=SPACE(11)
- m.delka=0
- m.prodel=0
- m.rok=""
- m.mesic=""
- m.den=""
- @ 1,1 SAY "Zadejte rodné číslo:" GET m.cislo PICTURE "999999/9999"
- READ
- m.delka=LEN(STRTRAN(ALLTRIM(m.cislo),"/",""))
- m.tr=val(SUBSTR(m.cislo,5,2))
- m.sd=val(SUBSTR(m.cislo,3,2))
- IF (M.TR<= 31 .and. m.sd<=62 .AND. m.delka=9 .OR. m.delka = 10)
- m.rok=SUBSTR(m.cislo,1,2)
- m.mesic=SUBSTR(m.cislo,3,2)
- m.den=SUBSTR(m.cislo,5,2)
- DO CASE
- CASE m.delka=9
- IF (VAL(m.mesic)>12)
- nar=(m.den+"."+STR(VAL(m.mesic)-50)+"."+m.rok)
- datum=DTOC(CTOD(nar))
- @ 2,1 SAY "Datum narozeni je:"+datum
- @ 3,1 SAY "Jste žena!"
- ELSE
- nar=(m.den+"."+m.mesic+"."+m.rok)
- datum=DTOC(CTOD(nar))
- @ 2,1 SAY "Datum narozeni je:"+datum
- @ 3,1 SAY "Jste muž!"
- ENDIF
- CASE m.delka = 10
- IF (VAL(STRTRAN(m.cislo,"/",""))%11=0)
- IF (VAL(m.mesic)>12)
- nar=(m.den+"."+STR(VAL(m.mesic)-50)+"."+m.rok)
- datum=DTOC(CTOD(nar))
- @ 2,1 SAY "Datum narozeni je:"+datum
- @ 3,1 SAY "Jste žena!"
- ELSE
- nar=(m.den+"."+m.mesic+"."+m.rok)
- datum=DTOC(CTOD(nar))
- @ 2,1 SAY "Datum narozeni je:"+datum
- @ 3,1 SAY "Jste muž!"
- ENDIF
- ELSE
- @ 3,1 SAY "Bylo zadano neplatne r.c"
- ENDIF
- ENDCASE
- ELSE
- @ 2,1 SAY "Bylo zadano neplatne r.c"
- ENDIF
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement