which day of the week

[bplus]

The forum editor is messing with the spaces!??

All the days should start at the same place on the 2 lines of weekdays,(when you add letter to left side so they match up) new word starts after each count of 9, they don't.

Code: (Select All)

m1$ = "Sunday   Monday   Tuesday  WednesdayThursday Friday   Saturday "
m2$ = "Friday   Saturday Sunday   Monday   Tuesday  WednesdayThursday "

Maybe it was your code m$ lines:

Code: (Select All)

m1$ = "Sunday   Monday   Tuesday  WednesdayThursday Friday   Saturday "

m2$ = "Friday   Saturday Sunday   Monday   Tuesday  WednesdayThursday "

Rem determine day of week.

_ScreenMove _Middle

'm$ = "Sunday  Monday  Tuesday  WednesdayThursday Friday  Saturday"

'm2$ = "Friday  Saturday Sunday  Monday  Tuesday  WednesdayThursday"

Do

    Print "Enter Month,Day,Year";: Input m%, d%, y%

    If m% = 0 And d% = 0 And y% = 0 Then End

    If m% < 3 Then m% = m% + 12: y% = y% - 1

    W% = ((13 * m% + 3) \ 5 + d% + y% + y% \ 4 - y% \ 100 + y% \ 400 + 1) Mod 7

    If y% < 1582 Or (y% = 1582 And m% <= 10 And d% <= 4) Then

        Print "Weekday is on: "; Mid$(m2$, 9 * W% + 1, 9)

    Else

        Print "Weekday is on: "; Mid$(m1$, 9 * W% + 1, 9)

    End If

Loop

End

and Columbus day was supposed to be Thurs yours is saying Monday after I fixed the days.