French Republican calendar: Difference between revisions

=={{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

=={{header|F_Sharp|F#}}==

// French Republican Calander: Nigel Galloway. April 16th., 2021

let firstDay=System.DateTime.Parse("22/9/1792")

let n,g,l=Greg2FRC(System.DateTime(1803,9,23)) in printfn "%d %s %d -> %d %A %d" 23 "September" 1803 n g l

let n,g,l=Greg2FRC(System.DateTime(1805,12,31)) in printfn "%d %s %d -> %d %A %d" 31 "December" 1805 n g l

{{out}}

<pre>

{{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|Julia}}==

To stay within historical dates, will throw a domain error if the French Republican date is outside the interval the calendar was actually used.

const GC_FORMAT = DateFormat("d U y")

testrepublicancalendar()

<pre>

French Republican to Gregorian

=={{header|Kotlin}}==

import java.time.format.DateTimeFormatter

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

}

{{out}}

=={{header|Nim}}==

As was done in Julia version, we have limited the date range to historical dates only.

import strformat, strscans, strutils, times

echo "From gregorian dates to French republican dates:"

for gdate in GregorianDates:

{{out}}

=={{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>

=={{header|Phix}}==

<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>

<span style="color: #008080;">constant</span> <span style="color: #000000;">gregorians</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span><span style="color: #008000;">"January"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"February"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"March"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"April"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"May"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"June"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"July"</span><span style="color: #0000FF;">,</span>

<span style="color: #008080;">if</span> <span style="color: #000000;">gre_to_day</span><span style="color: #0000FF;">(</span><span style="color: #000000;">day_to_gre</span><span style="color: #0000FF;">(</span><span style="color: #000000;">i</span><span style="color: #0000FF;">))!=</span><span style="color: #000000;">i</span> <span style="color: #008080;">then</span> <span style="color: #0000FF;">?</span><span style="color: #000000;">9</span><span style="color: #0000FF;">/</span><span style="color: #000000;">0</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>

<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>

{{out}}

<pre>

=={{header|Raku}}==

(formerly Perl 6)

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>

{{libheader|Wren-seq}}

{{libheader|Wren-fmt}}

import "/seq" for Lst

import "/fmt" for Fmt

var lds = thisDate.toLocalDate.format(fmt)

Fmt.print("$-25s => $s", frcDate, lds)

{{out}}