Le problème tient en quelques lignes. Le code vérifie si l'année est inférieure à 1000, puis ajoute un zéro. Ce remplissage—présenté comme gérant les dates historiques, la fondation de la Tang Dynasty par exemple—échoue pour toute année antérieure à 1000 AD. Caesar Augustus meurt en 14, d'où « 014 » au lieu de « 0014 ». L'application n'a jamais utilisé ces dates. Un traitement ultérieur s'appuie sur les types de date intégrés, rendant cette logique superflue. La notation hongroise ajoute à l'obscurité; le préfixe vnt reste inexpliqué.

historical-date.vb
mnYear% = CInt(Year(vntDate))
If mnYear% < 1000 Then
msYear$ = "0" & Trim$(CStr(mnYear%))
Else
msYear$ = Trim$(CStr(mnYear%))
End If