Alles is afhankelijk of je een 32-bit office versie hebt of een 64-bit office versie.
LongLong is enkel geldig op 64-bit office versies.
Op mijn XL2016 kreeg ik ook de accolades.
Hierbij een aangepaste versie van de UDF die geschikt is om de modulus te berekenen van grote getallen zonder overflow error.
Werkt normaal gezien op alle versies.
Public Function r_d(r)
Dim g As Double
rr = Replace(Replace(r, ".", ""), "-", "")
c = Val(Right(rr, 2))
c19 = 97 - (Val(Left(rr, 9)) Mod 97)
g = ((10 ^ 9) * 2) + Val(Left(rr, 9))
c20 = 97 - (g - (Int(g / 97) * 97))
If c <> c19 And c <> c20 Then
r_d = "fout rr_nr"
Else
r_d = DateSerial(Left(rr, 2) + 1900 + IIf(c = c19, 0, 100), Mid(rr, 3, 2), Mid(rr, 5, 2))
End If
End Function