DIM name1 AS STRINGDIM num1 AS INTEGERDIM num2 AS INTEGERINPUT "What is your name"; name1$INPUT "What is the current year"; num1$INPUT "What year were you born"; num2$PRINT name$PRINT num1$PRINT num2$'PRINT num1$ - num2$ 'but this dose not workSLEEP
DIM name1 AS STRINGDIM num1 AS INTEGERDIM num2 AS INTEGERINPUT "What is your name(instead enter numbers here)"; name1$INPUT "What is the current year(instead enter letters here)"; num1$INPUT "What year were you born(instead enter letters here)"; num2$PRINT name$PRINT num1$PRINT num2$Past% = VAL(num2$)Present% = VAL(num1$)Age% = Present% - Past%PRINTPRINT "hello "; name1$; " your age is "; Age%SLEEP
thedate$ = DATE$year% = VAL(RIGHT$(thedate$, 4))10 INPUT "Please input birth year. eg. 1980"; birthyear%IF birthyear% < 1000 OR birthyear% > year% THEN PRINT "Your Real birth year please!" GOTO 10END IFage% = year% - birthyear%PRINT "You are"; age%; "Years old!"SLEEP
DIM YourName AS STRINGDIM SHARED year1 AS INTEGERDIM SHARED year2 AS INTEGERDIM SHARED year3 AS INTEGERDIM SHARED month1 AS INTEGERDIM SHARED month2 AS INTEGERDIM SHARED month3 AS INTEGERDIM SHARED day1 AS INTEGERDIM SHARED day2 AS INTEGERDIM SHARED day3 AS INTEGERCLSINPUT "Your Good name, please : ", YourName'assigning current dates to the varialblesyear1 = VAL(RIGHT$(DATE$, 4))month1 = VAL(LEFT$(DATE$, 2))day1 = VAL(MID$(DATE$, 4, 2))StartIF (day2 > day1) AND ((month1 = 4) OR (month1 = 6) OR (month1 = 9) OR (month1 = 11)) THEN day1 = day1 + 30 month1 = month1 - 1END IFIF (day2 > day1) AND ((month1 = 1) OR (month1 = 3) OR (month1 = 5) OR (month1 = 7) OR (month1 = 8) OR (month1 = 10) OR (month = 12)) THEN day1 = day1 + 31 month1 = month1 - 1END IFIF (day2 > day1) AND (month1 = 2) AND (year1 MOD 4 <> 0) THEN day1 = day1 + 28 month1 = month1 - 1END IFIF (day2 > day1) AND (month1 = 2) AND (year1 MOD 4 = 0) THEN day1 = day1 + 29 month1 = month1 - 1END IFIF (month2 > month1) THEN month1 = month1 + 12 year1 = year1 - 1END IF'Calcualtion of yearday3 = day1 - day2month3 = month1 - month2year3 = year1 - year2CLSPRINTPRINT YourName; " you are "; day3; " days "; month3; " months and "; year3; " years old."SUB WrongCLSPRINT "Wrong Entry of your date of birth."PRINTPRINT "It should be valid year like 1998"PRINTPRINT "Valid month like 9"PRINTPRINT "Valid Date like 12"PRINTPRINT "or your computer date is not updated."PRINTINPUT "Press any key ............"; dummy$StartEND SUBSUB Startyear2 = 0month2 = 0day2 = 0CLSINPUT "Enter Year of Birth [eg 1999] : "; year2IF (year2 < 1000) OR (year2 > year1) THEN WrongINPUT "Enter Month of Birth [eg 11] : "; month2IF (month2 < 1) OR (month2 > 12) THEN WrongINPUT "Enter Day of Birth [eg 23] : "; day2IF (day2 < 1) OR (day2 > 31) THEN WrongIF (day2 > 29) AND (month2 = 2) THEN WrongIF (day2 > 28) AND (month2 = 2) AND (year2 MOD 4 <> 0) THEN WrongEND SUB