Dim Value As Long       ' Ganzzahl (SEPA-Betrag)
Dim sValue As String    ' Übergabe als String an die DLL-Funktion
Dim SumCheck As Long    ' Summe der Ganzzahlen
Dim SumValue As Double  ' Rückgabe Gesamtsumme von der DLL
 
...
 
' Test
For i = 1 To 2027
  Value = i
  sValue = Replace(FormatNumber(Value / 100, 2, , , vbFalse), ",", ".")
 
  SumCheck = SumCheck + Value
  Result = sevDTA_FileAddRec(fHandle, "0001-01", sValue, "Name " & CStr(i), _
    "DExx 0000 0000 0000 0000 00", "", "Rechnung " & CStr(i), _
    Format$(i, "0000"), Format$(Now, "dd.mm.yyyy"))
Next i
 
...
SumValue = DTA_SumValue()
Debug.Print SumValue, SumCheck  ' 20553,78      2055378

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de