Примеры программ на языке QBASIC

DECLARE SUB MonthDay (Y%, OrdDay%, M%, D%)
REM Восстановление даты по порядковому дню года
CLS
INPUT "Задайте год : ", Y%
INPUT "Задайте порядковый номер дня в году : ", OrdDay%
MonthDay Y%, OrdDay%, M%, D%
PRINT "Ему соответствует месяц = ", M%; " и день = "; D%
END

SUB MonthDay (Y%, OrdDay%, M%, D%)
' Восстановление месяца и дня в году Y%
' по порядковому номеру дня ord_day%
' M% - сюда засылается номер месяца
' D% - сюда засылается номер дня месяца
  DIM A AS INTEGER, B AS INTEGER, C AS INTEGER, E AS INTEGER
  A = 1889
  IF (Y% MOD 400 = 0) OR ((Y% MOD 4 = 0) AND (Y% MOD 100 <> 0)) THEN A = 1523
  B = INT((OrdDay% + A - 122.1) / 365.25)
  C = OrdDay% + A - INT(365.25 * B)
  E = INT(C / 30.6001)
  IF E < 13.5 THEN M% = E - 1 ELSE M% = E - 13
  D% = C - INT(30.6001 * E)
END SUB