convertisseur de calendrier Options

[fregnier]

Bonsoir,

J'utilisais RAMCAL sur mon ancien PC, mais il est devenu payant, après période d'essai (IMG:http://www.gennpdc.net/lesforums/style_emoticons/default/mad.gif)
Quel logiciel de conversion de calendrier perpétuel téléchargeable gratuitement conseillez-vous ?

@ bientôt

[vgavard]

Bonsoir,

Sur le site des archives en ligne de l'Oise , il y a un convertisseur de dates à droite de la page de recherche

Bonne soirée

Vincent

[vlecuyer]

Bonjour à tous,

merci pour vos réponses.
Dans l'ordre :
. pour Claude : je travaille sur Mac en effet (les gens confondent toujours le matériel, SUR lequel on travaille, et le système d'exploitation, SOUS lequel on travaille, comme toi sous Windows...je compatis (IMG:style_emoticons/default/wink.gif) ) avec le logiciel Reunion (v8) qui, à ma connaissance, ne gère pas le calendrier républicain, ce qui est son seul défaut selon moi ; si je me trompe (à propos de ce défaut), je serai heureux de l'apprendre
. pour Jean-Marie : j'ai essayé mais il semble que Excel pour Mac ne reconnaît plus les ajouts (.xla) dans ses dernières versions. Quant au site "Brumaire", j'ai été voir mais je n'y ai pas trouvé de macro, juste des applis autonomes (pour iPod, etc...)
. pour Vincent : je ne cherche pas un convertisseur pour une date (comme ceux proposés plus haut dans ce sujet), mais bien une automation pour tableur

. pour tous : comme je pratique VBA, je me suis rédigé une macro qui fait juste ce dont j'avais besoin : 3 colonnes républicaines (jour-mois-an) converties en 3 colonnes grégoriennes (idem) en cliquant sur un simple "bouton". À la disposition de qui la veut.

Bonne journée à tous,
amicalement,
Vincent

[jmdubreucq]

Bonjour Vincent, bonjour à tous

Comme je te disais en privé ce matin Calcdate de Frédéric Michaux fait parfaitement la conversion dans les deux sens et elle était donc adaptée à ta demande sauf le fait qu'elle tourne sous Windows (IMG:style_emoticons/default/nickel.gif) Après ça on comprend que parfois les hommes se font la guerre ... Quelle connerie ! (IMG:style_emoticons/default/tongue.gif)

. pour tous : comme je pratique VBA, je me suis rédigé une macro qui fait juste ce dont j'avais besoin : 3 colonnes républicaines (jour-mois-an) converties en 3 colonnes grégoriennes (idem) en cliquant sur un simple "bouton". À la disposition de qui la veut.

Si elle tourne sous Windows ça m'intéresse ...

Bonne journée

Jean-Marie

[vlecuyer]

Si elle tourne sous Windows ça m'intéresse ...

elle devrait, à confirmer (elle ne contient pas de virus...pour ceux qui ont la chance de savoir ce que c'est (IMG:style_emoticons/default/tongue.gif) )

Le plus long est la reconnaissance du mois républicain.

La seule détection d'erreur que j'ai ajoutée est la présence d'un mois inconnu. Je n'ai pas fait la vérification des jours complémentaires par exemple (6 en les ans 3, 7 et 11, et 5 sinon).

L'indentation n'apparaît pas ci-dessous (IMG:style_emoticons/default/sleep.gif)

'---------------------------------------------------
Sub Rep2Greg()
'conversion de calendrier républicain -> grégorien

'sur la ligne dont le numéro se trouve dans la variable "ligne" :

'source : date républicaine en colonnes 1, 2 et 3
'(attention à respecter - ou modifier - les abréviations des mois républicains ci-dessous)
'résultat : date grégorienne en colonnes 4, 5 et 6

'la variable "ligne" peut servir de compteur à une instruction FOR...NEXT
'ou bien être la ligne active dans la feuille de calcul avec l'instruction
'ligne = SELECTION.ROW

'jour, mois et an républicains
jr = Cells(ligne, 1)
Select Case Cells(ligne, 2)
Case "Vd": mr = 0
Case "Br": mr = 1
Case "Fr": mr = 2
Case "Ni": mr = 3
Case "Pl": mr = 4
Case "Vt": mr = 5
Case "Ge": mr = 6
Case "Fl": mr = 7
Case "Pr": mr = 8
Case "Me": mr = 9
Case "Th": mr = 10
Case "Fd": mr = 11
Case "Cp": mr = 12
Case Else: Cells(ligne, 2).Select: MsgBox "mois non identifié": End
End Select
ar = Cells(ligne, 3)

'nombre de jours écoulés depuis le "1er vendémiaire an 0" = 22/09/1791
nb_jour = jr + 30 * mr + 365 * ar + Int(ar / 4)

'recalage de la date et affichage
date_gregorienne = DateAdd("d", nb_jour, "22-Sep-1791")
Cells(ligne, 4) = Day(date_gregorienne)
Cells(ligne, 5) = Month(date_gregorienne)
Cells(ligne, 6) = Year(date_gregorienne)

End Sub
'---------------------------------------------------