Type DoubleRec
    dValue As Double
End Type
 
Type Int2Rec
    iLower As Long
    iUpper As Long
End Type
 
' Extract two integer values out of a single double value,
' by assigning a DoubleRec to the double value then copying
' the value over an Int2Rec and extracting the integer values
 
Function ExtractFields(dValue As Double, iLower As Integer, iUpper As Integer)
 
    Dim dr As DoubleRec
    Dim i2r As Int2Rec
 
    ' Set the double value
    dr.dValue = dValue
    ' Copy the values
    LSet i2r = dr
    ' Extract the values
    iLower = i2r.iLower ' enstpricht z.B. der Ordung des Spline --> 3
    iUpper = i2r.iUpper ' enstpricht z.B. der Dimension des Spline --> 4
 
End Function