Verschlüsselung aus Datum erzeugen

Computer: Software & Programmierung Microsoft Access
#1

Hallo,

Ich möchte per Vba aus einem Datum ein Verschlüsselungscode erzeugen.

Das heißt die Monate 03,04,05 sollen mit F (Frühling) verschlüsselt werden und 09,10,11 sollen mit H (Herbst) verschlüsselt werden.
Und hinter den Buchstaben sollen die letzten zwei Ziffern des Jahres stehen.

Zum Beispiel: Soll aus 01.10.2006 die Verschlüsselung H06 erzeugt werden in einem anderen Feld.

Ist das möglich? Wäre für eine Antwort dankbar.
Emma

#2

Hallo Emma,

Moeglich ist fast alles, aber wo ist dein Problem?

Weil ich gerade gute Laune habe tip ich es mal gerade so runter: (Ohne Gewaehr)

Public Function CryptDate(dDate as Date) as String
Dim iMonth as Integer
Dim iYear as Integer
Dim strOut as String

iMonth = Format(dDate,„mm“)
iYear = Format(dDate,„yy“)

select case Month
case 3,4,5
strOut = „F“
case 6,7,8
strOut = „S“
case 9,10,11
strOut = „H“
case 12,1,2
strOut = „W“
case else
strOut = „XX“
end select

strOut = strOut & Format(iYear,„00“)

CryptDate = strOut

End Function

Die Ueberpruefung auf gueltiges Datum und die Fehlerbehandlung ueberlasse ich dir; sollst ja auch keine Langeweile haben.

Hope this helps
Peter

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Danke ist bestimmt eine gute Lösung, werde es mal probieren.

Emma