French Republican calendar: Difference between revisions

 

Write a program to convert dates between the [[wp:Gregorian calendar|Gregorian calendar]] and the [[wp:French Republican Calendar|French Republican calendar]].

 

• 10 Nivôse 14 = 31 December 1805

 

=={{header|BBC BASIC}}==

Computes leap years using the "continuous" method: a year in the Republican calendar is a leap year if and only if the number of the <i>following</i> year is divisible by 4 but not by 100 unless also by 400. No attempt is made to deal with ill-formed or invalid input dates.

:

DIM gregorian$(11)

:

DEF FN_gre_leap(year%)

<b>Output for the test dates:</b>

<pre>*** French Republican ***

{{trans|BBC BASIC}}

Computes leap years using the "continuous" method: a year in the Republican calendar is a leap year if and only if the number of the <i>following</i> year is divisible by 4 but not by 100 unless also by 400. No attempt is made to deal with ill-formed or invalid input dates.

' compile with: fbc -s console

' retained the original comments for then BBC BASIC entry

Loop Until src = ""

 

{{out}}

<pre>> 1 Vendemiaire 1 > 22 September 1792 > 1 Vendemiaire 1 > 23 September 1806 > 1 Vendemiaire 15

1 Vendemiaire 14 23 September 1805</pre>

 

=={{header|Go}}==

{{trans|BBC Basic}}

A rather literal port, just for reference. Far from idiomatic Go.

 

import (

func greLeap(year int) bool {

return year%4 == 0 && (year%100 != 0 || year%400 == 0)

{{out}}

<pre>

 

A start anyway. Computations extracted to a package, a type defined for French Republican Dates, time package from standard library used. Ignores invalid input rather than panicking.

 

import (

func greLeap(year int) bool {

return year%4 == 0 && (year%100 != 0 || year%400 == 0)

 

import (

}

}

 

=={{header|Kotlin}}==

 

import java.time.format.DateTimeFormatter

println("${frcDate.padEnd(25)} => $lds")

}

 

{{out}}

7 Vendémiaire 226 => 28 September 2017

</pre>

 

=={{header|Perl}}==

use DateTime;

my @month_names = qw{

2016-09-22 1 Vendémiaire 225

2017-09-22 1 Vendémiaire 226

{{Out}}

<pre>All tests successful.</pre>

 

constant @month_names = <

Vendémiaire Brumaire Frimaire Nivôse Pluviôse Ventôse

or Republican_to_Gregorian(Gregorian_to_Republican($g)) != $g;

}

{{Out}}

<pre>All tests successful.</pre>

 

=={{header|Sidef}}==

{{trans|Perl}}

 

var month_names = %w(

2015-09-23 1 Vendémiaire 224

2016-09-22 1 Vendémiaire 225

{{out}}

<pre>

All tests successful.

</pre>