FRENCH REVOLUTIONARY CALENDAR CONVERSIONS MOD
(_year Mod 4 = 0 And (_year Mod 100 0 Or _year Mod 400 = 0 ) )ĭim Shared As UInteger gregorian ( 11 ) => ĭim Shared As String gregorian_s ( 11 ), republican ( 11 ), sanscolottides ( 5 ) ' see comment at the beginning of rep_to_day ' retained the original comments for then BBC BASIC entry Output for a few subsequent dates: > 18 March 1871
Or just press 'RETURN' to exit the program. Output for the test dates: *** French Republican ***Įnter a date to convert, in the format 'day month year' REM see comment at the beginning of FN_rep_to_day IF FN_rep_leap(y%) THEN sansculottides% = 6 ELSE sansculottides% = 5 REM and years from 1792 onwards are Gregorian REM for simplicity, we assume that years up to 1791 are Republican PRINT "Or just press 'RETURN' to exit the program." PRINT "For Sansculottides, use 'day year'" PRINT "Enter a date to convert, in the format 'day month year'" Sansculottides$() = "Fete de la vertu", "Fete du genie", "Fete du travail", "Fete de l'opinion", "Fete des recompenses", "Fete de la Revolution" Republican$() = "Vendemiaire", "Brumaire", "Frimaire", "Nivose", "Pluviose", "Ventose", "Germinal", "Floreal", "Prairial", "Messidor", "Thermidor", "Fructidor" REM 7-bit ASCII encoding, so no accents on French words Gregorian$() = "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December" No attempt is made to deal with ill-formed or invalid input dates. Fête de la Révolution 11 = 23 September 1803Ĭomputes leap years using the "continuous" method: a year in the Republican calendar is a leap year if and only if the number of the following year is divisible by 4 but not by 100 unless also by 400.27 Messidor 7 = 15 July 1799 (Rosetta Stone discovered).Test your program by converting the following dates both from Gregorian to Republican and from Republican to Gregorian: (Because of these different methods, correct programs may sometimes give different results for dates after 1805.)
You should indicate which method you are using.
FRENCH REVOLUTIONARY CALENDAR CONVERSIONS HOW TO
If you choose to accept later dates, be aware that there are several different methods (described on the Wikipedia page) about how to determine leap years after the year 14. In leap years (the years 3, 7, and 11) a sixth Sansculottide was added: Fête de la Révolution / Revolution Day.Īs a minimum, your program should give correct results for dates in the range from 1 Vendémiaire 1 = 22 September 1792 to 10 Nivôse 14 = 31 December 1805 (the last day when the Republican calendar was officially in use). There were twelve months (Vendémiaire, Brumaire, Frimaire, Nivôse, Pluviôse, Ventôse, Germinal, Floréal, Prairial, Messidor, Thermidor, and Fructidor) of 30 days each, followed by five intercalary days or Sansculottides ( Fête de la vertu / Virtue Day, Fête du génie / Talent Day, Fête du travail / Labour Day, Fête de l'opinion / Opinion Day, and Fête des récompenses / Honours Day). The year 1 of the Republican calendar began on 22 September 1792. Write a program to convert dates between the Gregorian calendar and the French Republican calendar. You are encouraged to solve this task according to the task description, using any language you may know.
0 kommentar(er)
