Dim dta as DTAUS
 
  dta  = new DTAUS("LK", "FIRMA123", "12345678", "98765")
 
  dta.Add( "Hans Müller", "12345678", "12345", 10.53, "Kunde 123 - RG 456", "Verwendungszweck2")
  dta.Add("Frau Schmitt", "12345678", "1234567890", 501.30, "Kunde 124 - RG 457", "Verwendungszweck2")
 
  TextArea1.Text = dta.Create

Function DegreeToRadian(angle As Double) As Double
  Const PI = 3.14159265358979323846264338327950
  Return angle / 180 * PI
End Function

Function GetDistance(Latitude1 As Double, Longitude1 As Double, Latitude2 As Double, Longitude2 As Double) As Double
  Const EarthRadius = 6370
 
  Dim RadianLatitude1, RadianLongitude1 as Double
  Dim RadianLatitude2, RadianLongitude2 as Double
 
  RadianLatitude1 = DegreeToRadian( Latitude1 ) 
  RadianLongitude1 = DegreeToRadian( Longitude1 )
  RadianLatitude2 = DegreeToRadian( Latitude2 )
  RadianLongitude2 = DegreeToRadian( Longitude2 )
 
  Return ACos( Sin( RadianLatitude1 ) * Sin( RadianLatitude2 ) + _
  Cos( RadianLatitude1 ) * Cos( RadianLatitude2 ) * _
  Cos( RadianLongitude1 - RadianLongitude2 ) ) * _
  EarthRadius
End Function

'Frankfurt/Main, Germany
Dim Latitude1 as Double = 50.120578
Dim Longitude1 as Double = 8.681946
 
'Berlin, Germany
Dim Latitude2 as Double = 52.531261
Dim Longitude2 as Double = 13.410187
 
Dim Distance as Double
 
Distance = GetDistance( Latitude1, Longitude1, Latitude2, Longitude2 )
MsgBox Str(Distance) + " km"

Function GetDistanceWGS84(Latitude1 As Double, Longitude1 As Double, Latitude2 As Double, Longitude2 As Double) As Double
  Const EarthRadius = 6378.137
  Const Flattening = 0.003352811
 
  Dim F,G,l,S,C,w,R,D,H1,H2 as Double
  Dim SinF2,SinG2,Sinl2,CosF2,CosG2,Cosl2 as Double
 
  F = DegreeToRadian( (Latitude1 + Latitude2) / 2 )
  G = DegreeToRadian( (Latitude1 - Latitude2) / 2)
  l = DegreeToRadian( (Longitude1 - Longitude2) / 2)
 
  SinF2 = Sin(F)^2
  SinG2 = Sin(G)^2
  Sinl2 = Sin(l)^2
 
  CosF2 = Cos(F)^2
  CosG2 = Cos(G)^2
  Cosl2 = Cos(l)^2
 
  S = SinG2 * Cosl2 + CosF2 * Sinl2
  C = CosG2 * Cosl2 + SinF2 * Sinl2
 
  w = ATan( Sqrt( S / C ) )
  D = 2 * w * EarthRadius
  R = Sqrt( S * C ) / w
 
  H1 = (3 * R - 1) / (2 * C)
  H2 = (3* R + 1) / (2 * S)
 
  Return D * (1 + Flattening * H1 * SinF2 * CosG2 - Flattening * H2 * CosF2 * SinG2)
 
End Function

Function GetDistancePythagoras(Latitude1 As Double, Longitude1 As Double, Latitude2 As Double, Longitude2 As Double) As Double
  Return Sqrt( ((Latitude1 - Latitude2) * 111) ^ 2 + ((Longitude1 - Longitude2) * 71.5) ^ 2 )
End Function

#if TargetMacOS
if me.Handle <> 0 then
 Declare Function setsockopt Lib "System" (s as Integer, level as integer, _
 optName as integer, optval as ptr, optlen as integer) as Integer
 
 dim x as Integer
 dim mb_optval as MemoryBlock
 
 mb_optval = NewMemoryBlock(4)
 mb_optval.Long(0) = 32 * 1024 // send buffer size 32K
 
 // SOL_SOCKET --> &hFFFF, SO_SNDBUF --> &h1001
 x = setsockopt(me.Handle, &hFFFF, &h1001, mb_optval, 4)
end 
#endif

#if TargetWin32
// Set the sendbuffer size of this socket smaller so we get better
// progress feedback
Declare Function setsockopt Lib "Ws2_32" (s as Integer, level as integer, _
optName as integer, optval as ptr, optlen as integer) as Integer
 
dim x as Integer
dim mb_optval as MemoryBlock
 
mb_optval = NewMemoryBlock(4)
mb_optval.Long(0) = 32 * 1024 // send buffer size 32K
 
// SOL_SOCKET --> &hFFFF, SO_SNDBUF --> &h1001
x = setsockopt(me.Handle, &hFFFF, &h1001, mb_optval, 4)
#endif