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

DECLARE FUNCTION DatToOrd! (y%, M%, D%)
REM Определение порядкового дня в году по
REM текущей дате (y - год, m -месяц, d - день)
CLS
INPUT "Задайте год : ", y%
INPUT "Задайте месяц : ", M%
INPUT "Задайте день : ", D%
PRINT "Порядковый номер дня в году = "; DatToOrd(y%, M%, D%)
END

FUNCTION DatToOrd (y%, M%, D%)
  DIM a1 AS INTEGER, a2 AS INTEGER
  a1 = (M% + 9) \ 12
  a2 = INT(275! * M% / 9!) - a1 + D%
  IF (y% MOD 400 = 0) OR ((y MOD 4 = 0) AND (y MOD 100 <> 0)) THEN
    DatToOrd = a2 - 30
  ELSE DatToOrd = a2 - a1 - 30
  END IF
END FUNCTION