Übersetzung in VB-Code

[Jumpy]

Afaik (und kurze Google-Suche bestätigt das) kann man in VB keine konstanten Arrays deklarieren. Das folgende wäre in ungefähr eine machbare Aproximation:

Code:

Enum TGEDCOMApproximated [ As Integer ] 
  daExact
  daAbout
  daCalculated
  daEstimated
End Enum

Const AVALUES = ":ABT:CAL:EST"
Public GEDCOMDateApproximatedArray(3) As String
 
Public Sub FillArrayInInitialization() 
    Dim vntTemp As Variant 
    Dim intIndex As Integer 
    vntTemp = Split(AVALUES, ":") 
     
    For intIndex = 0 To 3
        GEDCOMDateApproximatedArray(intIndex) = vntTemp(intIndex) 
    Next 
End Sub