Übersetzung in VB-Code

[hansklok]

Ok, zugegeben es hat etwas gedauert, aber ich habe nun eine sehr einfache Lösung gefunden:

Code:

Enum TGEDCOMApproximated As Integer
  daExact
  daAbout
  daCalculated
  daEstimated
End Enum

Function GEDCOMDateApproximatedArray(Value As TGEDCOMApproximated) As String
  Select Case Value
    Case TGEDCOMApproximated.daAbout
      Return "ABT"
    Case TGEDCOMApproximated.daCalculated
      Return "CAL"
    Case TGEDCOMApproximated.daEstimated
      Return "EST"
    Case TGEDCOMApproximated.daExact
      Return "" End Select
End Function

Dankeschön für euren Input. Es war mir eine große Hilfe