Function QuandJour(a%, m%, j%, o%)
Dim x As Date
x = DateSerial(a, m - (o < 0), j - (o > 0)) - 1 - (DateSerial(a, m - (o < 0), 5 - (o > 0)) Mod 7) + 7 * (o + (o < 0) * (j <= 1 + (DateSerial(a, m - (o < 0), 5 - (o > 0)) Mod 7)) - (o > 0) * (j > (DateSerial(a, m - (o < 0), 5 - (o > 0)) Mod 7)))
If Month(x) = m Then QuandJour = x Else QuandJour = ""
End Function