Birthday
Posted: Thu Jan 22, 2009 1:21 pm
I started with qbasic last week, so im pretty bad
Now the thing i need help with:
Im trying to make a program that tells you how many days it is to your birth day. but i have problem. you tell the program when you were born and the program says it is x days left until your birthday.
Say what i can do or say where i can read about how to do it.
hope you understand me
Here is the code:
CLS
1
INPUT "Whats your personal number, 'ddmmyyyy****'four last", pers$
pers1 = VAL(LEFT$(pers$, )
dd = VAL(MID$(DATE$, 4, 3))
dm = VAL(LEFT$(DATE$, 2))
dar = VAL(RIGHT$(DATE$, 4))
pd = VAL(LEFT$(pers$, 2))
pm = VAL(MID$(pers$, 3, 2))
par = VAL(MID$(pers$, 5, 4))
IF dm > pm THEN GOTO
IF dm = pm THEN GOTO 2
IF dm < pm THEN GOTO
2
IF dd = pd THEN
PRINT "Happy birthday!"
GOTO 5
END IF
kd = dd - pd
kd = kd - kd - kd
IF dd - pd <0> 0 THEN
GOTO 4
END IF
3
FOR o = (dm) TO (pm) STEP -1
SELECT CASE o
CASE 1, 3, 5, 7, 8, 10, 12
dag = 31
CASE 4, 6, 9, 11
dag = 30
CASE 2
dag = 28
END SELECT
dag = dag + dag
NEXT o
Now the thing i need help with:
Im trying to make a program that tells you how many days it is to your birth day. but i have problem. you tell the program when you were born and the program says it is x days left until your birthday.
Say what i can do or say where i can read about how to do it.
hope you understand me
Here is the code:
CLS
1
INPUT "Whats your personal number, 'ddmmyyyy****'four last", pers$
pers1 = VAL(LEFT$(pers$, )
dd = VAL(MID$(DATE$, 4, 3))
dm = VAL(LEFT$(DATE$, 2))
dar = VAL(RIGHT$(DATE$, 4))
pd = VAL(LEFT$(pers$, 2))
pm = VAL(MID$(pers$, 3, 2))
par = VAL(MID$(pers$, 5, 4))
IF dm > pm THEN GOTO
IF dm = pm THEN GOTO 2
IF dm < pm THEN GOTO
2
IF dd = pd THEN
PRINT "Happy birthday!"
GOTO 5
END IF
kd = dd - pd
kd = kd - kd - kd
IF dd - pd <0> 0 THEN
GOTO 4
END IF
3
FOR o = (dm) TO (pm) STEP -1
SELECT CASE o
CASE 1, 3, 5, 7, 8, 10, 12
dag = 31
CASE 4, 6, 9, 11
dag = 30
CASE 2
dag = 28
END SELECT
dag = dag + dag
NEXT o