Dato --> bokstaver

Da asciikode af A er 65 (dvs udtrykket chr(65) giver et A) kan du bruge følgende

chr([årstal]-1935)

Dette spørgsmål er som spørgsmålet ved
http://www.eksperten.dk/spm.asp?id=9374

Hvis du har tænkt dig at bruge UNICODE karakterer istedet skal du bruge ChrW(karakterkode) istedet for.

Hvis du bruger Chr$(karakterkode) vil maskinen bruge mindre hukommelse, men den er ikke så fleksibel som Chr(karakterkode).

Derudover kan du efter Z f.eks begynde at bruge AA osv men så skal du lige prøgrammere lidt mere.

Held og lykke med det

Du får lige et eksempel
Sub aar2tal
  Dim X As Integer
  Dim Y
  X = (Aarstal - 2000 + 65)
  Y = Chr(X)
  MsgBox (CStr(Aarstal) + " -> " + CStr(X) + " -> " + Y)
  Aarskarakter = CStr(Y)
end sub

Det øverste skulle jo have et svar