شماره ي روز از کل سال را گرفته و خروجي آن اين است که معلوم مي کند چندمين روز و چندمين ماه سال است

مثال
ورودي      241
خروجي     ماه هشتم   و    روز 25

در انتها عبارت q را پاک کنید 

CLS : o = 31                                        q
INPUT "enter days ( 1 - 365 ) : ", n   q     
   FOR i = 1 TO 11                                   q
      IF n <= o THEN EXIT FOR                    q
      n = n - o                                            q
      IF i = 6 THEN o = 30                           q
   NEXT i                                               q
PRINT "month = "; i, "day = "; n            q
END                                                    q