1 2 3 4 5 6 7 8 9 10
| Public Function age(D1 As Date, D2 As Date) As String
Dim nba As Integer, nbm As Integer, nbj As Integer
Dim LaFeinte As Long ' <<======= et.... pour une feinte, ... tu vas voir...
LaFeinte = IIf(Day(D2) < Day(D1), 1, 0) ' retournera 1 si Day(D2) < Day(D1) sinon 0
nba = Year(D2) - Year(D1) - Switch(Month(D2) < Month(D1), 1, Month(D2) = Month(D1), LaFeinte, True, 0)
nbm = (Month(D2) - Month(D1) - LaFeinte + 12) Mod 12 ' <<<==== ...Hé hé !......(zi rigoule)...
nbj = Day(D2) - Day(D1) + LaFeinte * Day(DateSerial(Year(D2), Month(D2), 1) - 1)
'FIXIT: Remplacer la fonction 'Trim' par la fonction 'Trim$' FixIT90210ae-R9757-R1B8ZE
age = Trim(IIf(nba > 0, nba & " an" & IIf(nba > 1, "s", "") & " ", ""))
End Function |
Partager