[COLOR=DarkSlateGray][B]Function paq(a&) [COLOR=DarkOrange]'Algorithme de Oudin
' Valable de 1583 à la fin des Temps.[/COLOR]
Dim g&, c&, d&, h&, i&, r&
paq = ""
If a > 1582 Then
g = a Mod 19
c = Int(a / 100)
d = Int(c / 4)
h = (19 * g + c - d - Int((8 * c + 13) / 25) + 15) Mod 30
i = (Int(h / 28) * Int(29 / (h + 1)) * Int((21 - g) / 11) - 1) * Int(h / 28) + h
r = DateSerial(a + 400, 3, 28) + i - (2 + a + Int(a / 4) + i + d - c) Mod 7
paq = Day(r) & "/" & Month(r) & "/" & a
If a > 1899 Then paq = CDbl(CDate(paq))
End If
End Function[/B][/COLOR]