Most Frequently Used Technotes for Lotus Domino Server

When creating a new copy of a database with File -> Database -> New Copy, there is an option to only copy the design and no documents from the source database.
When creating a new replica of a database with File -> Replication -> New Replica, there is no option like this. The replica stub that is created will not include any documents, but it will not allow administrators to make any modifications to the database design or the ACL.

Is it possible to create a replica of a database (not a replica-stub) without any documents. –> more

@Unique Not Generating a Unique Number in Web Applications

The @Function, @Unique, is designed to generate a random, unique number as text data type. When used in a computed field on a form, for example, you should get a new, unique number for each new document created with such a form. You notice, however, when @Unique is used in a Web Application form, the number is not always unique. Why is this happening?

In the case where @Unique is contained in a computed field in a web application, the reason for the non-unique number could be related to the browser cache settings. If the “Check for newer versions of stored pages” option in the IE browser is set to “Automatically”, the number generated may duplicate.

To work around the issue, do one of the following:

Change the “Check for newer version of stored pages” option in IE (found under Tools –> Internet Options –> General tab –> Setting button) to “Every visit to the page” to ensure that a new and unique number is generated by the IE browser. In this case, the Domino server is sending a new and unique number, but the browser was caching the previous value instead of retrieving the newly generated one.
Use a profile document to generate a random number. Then, use a web query open or web query save agent to obtain a unique key by accessing a profile document for sequential unique numbers

Lotus Software KnowledgeBase Document# 1191209

Notes 6.5.x Documents that Have Been Replied to or Forwarded Appear as Unread

In Notes 6.5.x, when you reply to or forward a message, the message becomes unread directly afterward, even though you have already read the document.
This issue was reported to Lotus software Quality Engineering; however, it was been found that Notes was functioning as designed. To avoid the issue, enable the Database Property “Do not mark modified documents as unread” found on the Designer tab.

The property is enabled by default in the mail templates that ship with Notes/Domino 6.0.3 and 6.5.

A document that is forwarded or replied to in Notes 6.5.x appends a $RespondedTo field to the document and assigns it a value so that the corresponding “Action performed” icon appears in the view. With the addition of this field, the document has now been modified. Without the “Do not mark modified documents as unread” option enabled, Notes marks the document as Unread because the document was modified.

Lotus Software KnowledgeBase Document# XXXXXXX

Die Firewall von Windows XP Service Pack 2

Bereits in der Urfassung von Windows XP ist eine Firewall enthalten gewesen, von der aber kaum jemand Notiz genommen hat. Gründe hierfür waren der mangelnde Komfort und nur mäÃ?iger Funktionsumfang.

Mit dem Service Pack 2 hat Microsoft die Firewall aufgebohrt und mit neuen Features versehen. Die Einstellung der Firewall ist aber nicht ganz so trivial, wie es bei erster Betrachtung den Anschein hat. Der Artikel von WinTotal gibt eine Hilfestellung und Rat zur Einstellung und Anpassung der Firewall.

Using AWStats To Report On Domino Web Logs

Lotus Notes/Domino doesn’t have very good built-in web log reporting functionality. As a web server, Domino can send traffic information to text files or to a DomLog database, but there’s no real reporting built-in, so you’re stuck with reams of information and no good way to look at it. Julian Robichaux shows in his article how to use AWStats to report on Domino web logs

Should Debug_Outfile be used on a Domino 6.x server?

Starting with Domino 6.0, the Domino server creates a console.log file by default in the “IBM_TECHNICAL_SUPPORT” folder, which is located in the server’s Data directory. The development of the console.log file, which can be dynamically enabled and disabled at the server console, makes the use of the parameter debug_outfile obsolete.

For backwards compatibility, when debug_outfile is present in the notes.ini it takes precedence. However, using the debug_outfile parameter is no longer the preferred method for capturing console output.

Console.log is superior to the use of “debug_outfile” because it can be dynamically enabled and disabled at the server console thus eliminating delays capturing crucial data. Server reboots are no longer required to begin capturing basic console logging, which is not the case when using the parameter “debug_outfile”.

Enabling Dynamic Console Logging

Console.log can be dynamically enable and disabled at the server console with the following commands:

start consolelog

stop consolelog

Please note that these commands are not “sticky” (i.e. they are only specific to the current server session). To avoid console logging from being disabled after a reboot, the following parameter can be set to 1 (where 1 is enabled and 0 is disabled):


Lotus Software KnowledgeBase Document# 1181562

ReAttach – Attachment nach Bearbeitung wieder anhängen

Des Öfteren stehen die User vor dem Problem, ein Attachment bearbeiten zu müssen und an einen anderen User weiterleiten zu mssen.
Lotus Notes in den Versionen 4 und 5 bietet hier leider nur die Möglichkeit, den Anhang zu detachen, mit der entsprechenden Anwendung zu öffnen und nach der Modifikation wieder an das Dokument anzuhängen.

Die Lotus Script Klasse clsAttachment erledigt dies in einer einzigen Aktion. Die Einbindung ist kinderleicht. Legen sie das Arbeitsberzeichnis und das Feld fest, das die Anhänge enthält.

Sub Click(Source As Button)

  Dim workdir as String
  Dim rtField as String
  Dim A As New Attachment
  workdir = "c:\temp"
  rtField = "Body"

  Call A.Modify ( workdir , rtField )

End Sub

Bei mehreren Anhängen erfolgt die Auswahl des zu bearbeitenden Anhangs komfortabel durch ein PopUp Menue. Nach Auswahl des Anhangs wird dieser mit der entsprechenden Anwendung geöffnet. (getestet unter 4.6.x ( unter 4.5 nur mit Modifikationen lauffähig ), 5.x mit Windows 9x / NT4 SP 6a / 2000 und Office 97 / 2000 )


@Command([ToolsUserLogoff]) in Lotus Script

Mit Hilfe der Windows API kann der Befehl @Command([ToolsUserLogoff]) in Lotus Script simuliert werden.

VK_F5 = &H74

Declare Sub WIN32_KeyBoardEvent Lib "User32" Alias "keybd_event" ( Byval bVirtualKey As Integer , Byval bScanCode As Integer , dwFlags As Long , dwExtraInfo As Long )
Sub Logoff ( )
  Dim ModuleName As String
  ModuleName = {Logoff}
  On Error Goto ErrorHandler

  WIN32_KeyBoardEvent VK_F5 , 0 , KEYEVENTF_KEYDOWN , 0
  WIN32_KeyBoardEvent VK_F5 , 0 , KEYEVENTF_KEYUP , 0
  Exit Sub

  Select Case fnErrorHandler ( Error$ , Err , Erl , ModuleName )
    Case 0
      Exit Sub
    Case 1
      Resume Next
    Case Else
      Resume Next
  End Select
End Sub

Function fnErrorHandler ( strErrorText As String , lngErrorNumber As Long , lngErrorLine As Long , strModuleName As String ) As Integer
Print ( {ERROR: } + strErrorText + { (Nr.: } + Cstr (lngErrorNumber ) + {, Line: } + Cstr (lngErrorLine ) + {, Module: } + strModuleName + {)} )
fnErrorHandler = 1
End Function

Und zum Testen folgender Aufruf

Sub Click(Source As Button)
  Call Logoff
End Sub 

Enumerating Local And Network Drives

Is there a way that I can return all available local drive letters ? Yes, there is a way !

Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (Byval nBufferLength As Long, Byval lpBuffer As String) As Long
Function GetDrives() As String
  Dim tmp As String
  Dim iCount As Integer
  Dim strDrives As String

  strDrives = Space$(64)
  Call GetLogicalDriveStrings(Len(strDrives), strDrives)
       For iCount = 1 To Len(strDrives) Step 4
           tmp = tmp & " " + Mid$(strDrives, iCount, 1)
      Next iCount

     GetDrives = Trim(tmp)
End Function
Sub Click(Source As Button)
    Msgbox getdrives
End Sub

Using GetDocumentByKey with Numerical Values Returns Incorrect Document or No Document

When you use the LotusScript GetDocumentByKey method (of the NotesView class) with a numeric value for the key, either no documents are returned or the incorrect document is returned.You must convert both the column formula and key to string values in order to perform the lookup. You should edit the column formula, adding an @Text function call to the present formula. The key values passed to the GetDocumentByKey method can be converted to string values by using the Cstr function. The dimension, or Dim, statement for the key array must now be declared as a String or Variant.


Using the @Text function in a column formula. Given a formula which contained the entry ‘numfield’:


Using the Cstr function to convert the desired key value:

keys(0)= cstr(doc.numfield(0))

Lotus Software KnowledgeBase Document# 1101037

DatabaseProperties Class

The DatabaseProperties class has been created to manage Notes databases in small to enterprise-wide domains using LotusScript and C API to set most Database settings on R5/R6 databases that you can set via client notes but pou don’t manage via LotusScript directly.

Its code has been built/expanded from the various Lotus Script/C API contributions over the years in the forums by many authors such as Normunds Kalnberzins and Rod Whitely as well as the dbdesign stuff by Damien Katz (and expanded dbdesign by Josh Jore).

This class is an extension of the “dbdesign” and a reorganization of the function that you can get in “R5 Database Manager” and my improvment. For the DBDesign a i made a fix in the method that update the document thant contain Template Name/Design Name/Category. Now the string store in the notes document does not contain a garbage Characters.

Let User Filter Any View

Here’s a great little Action (or Agent) that lets a user filter any categorized view based on whichever category they choose. I suggest putting it in a SmartIcon so that it will be available in any database or view. You may want to put it in an action button at the top of certain categorized views. It is super-fast (much like using an embedded single-category view). I have put error handling for everything that I encountered, so the user will always get a friendly message.

The @SetViewInfo function filters a view down to a single category. Calling it with a null value will reset the view to show all categories.

This is helpful because of an ugly side-effect of @SetViewInfo — filtering is retained even when the user changes to a different view. Sometimes this results in zero documents being shown. Clicking the action button again will show all docs.

By the way, I believe that the column choice does not work in @SetViewInfo( ). In my testing, it only works on the first categorized column.

REM { --- this action button filters a view based on the user's input --- };

tmpVName := @Subset( @ViewTitle; -1 );
@If( tmpVName = "";
   @Return( @Prompt( [Ok]; "Warning"; "This only works when a database
is opened to a view.") );
   @Success );
tmpCol := 1;

REM { produce a list of categories from the current view };
tmpList := @Unique( @DbColumn( "":""; "":""; tmpVName; tmpCol ) );

REM { handle common errors -- reset filtering in an inappropriate view };
warningText := "This action only works in a categorized view where the category
is the first column." + @Char(10) +
  "This will not work in a flat view or in a view where the first column is not
the category";
@If( @IsText( tmpList[1] );
   @Do( @SetViewInfo( [SetViewFilter]; ""; ""; 1); @Return( @Prompt(
[Ok]; "Warning"; warningText ) ) ) );

REM { Let the user pick one category };
tmpChoice := @Prompt( [OkCancelCombo];
"Select a Category for Filter"; "This will filter the view to a single
category." + @Char(13) + "   (specify blank for all)";
""; "" : tmpList );

REM { reminder: expand the view or it may appear empty };
@Command( [ViewExpandAll] ) ;

REM { Set the filter (or clear the filter) };
tmpCName := "sPOAreaName";
@SetViewInfo( [SetViewFilter]; tmpChoice; tmpCName; 1 )

Notes Client, POP3 und SPAM

In einem früheren Artikel hatte ich bereits beschrieben, wie man den heimischen Domino Server für den Einsatz des OpenSource Spamfilters kSpam konfiguriert. Nun wird nicht jeder einen Domino sein Eigen nennen. Die meisten Heimanwender werden hre Mails über den Notes Client mittels POP3 von ihren Provider abholen. Leider gibt es noch kein Produkt, das ähnlich wie kSpam in die Notes Installation eingebunden werden kann.
Für die meisten eMail Clients gibt es aber solche Spamfilter; sei es als PlugIn oder als Proxy. Ich werwende hier das Freeware Produkt Spamihilator von Michel Krämer. Spamihilator schaltet sich zwischen Ihre E-Mail-Software und das Internet und überprüft jede eingehende E-Mail auf Spam. Ã?berflüssige Werbenachrichten (Spam, Junk) werden herausgefiltert. Die Filterung läuft dabei vollständig im Hintergrund ab. Der neue lernfähige Filter (Bayesian Filter) arbeitet nach den Regeln von Thomas Bayes (englischer Mathematiker, 18. Jahrhundert) und errechnet für jede E-Mail eine bestimmte Spam-Wahrscheinlichkeit. Sie können diesen Filter trainieren! Dadurch stellt er sich auf Ihr persönliches Mailaufkommen ein und kann mit der Zeit immer bessere Ergebnisse liefern. Zusätzlich benutzt Spamihilator noch einen Wortfilter, der nach bekannten Schlüsselwörtern sucht. Natürlich unterstützt das Programm auch Plugins. Diese nützlichen Filter schützen Ihren Computer zusätzlich vor nervigen Werbenachrichten. Die Installation erfolgt über ein komfortables Setup-Programm. Spamihilator ist nach der Installation im SysTray zu finden.

Wenn der Notes Client bereits für den Abruf von Mails über POP3 eingerichtet ist, ist die restliche Konfiguration ein Kinderspiel. Es muÃ? lediglich erreicht werden, daÃ? die Mails nicht mehr direkt vom POP3 Konto abgeholt werden, sondern das Spamihilator die Mails abholt und an den Client zustellt

In das Feld “Server für dieses Benutzerkonto” wird localhost eingetragen. Damit wird erreicht, daÃ? der Mailabruf über Spamihilator erfolgt. Die Anmeldeinformationen im Feld “Anmeldename” wird um den POP3 Servernamen des Providers ergänzt. Jetzt noch das Dokument speichern und schlieÃ?en; FERTIG 😉


POP3, SMTP, Virenscanner und Spamfilter

Wie man den Notes Client so konfiguriert, das Mail von unterschiedlichen POP3 Accounts abgeholt werden, wurde bereits mehrfach an anderer Stelle im Internet beschrieben. Die beschriebenen Konfigurationen verwenden dabei für die unterschiedlichen Accounts separate Arbeitsumgebungsdukumente und Dokumente f?r die Konfiguration der POP3 Konten. Der Nachteil dabei ist, daÃ? alle Mails in einer Maildatei landen; n?mlich der Datei, die in der aktuellen Arbeitsumgebung eingetragen ist.
Steht ein eigener Domino Server zur Verfügung, ergeben sich daraus ganz andere Möglichkeiten. Im Folgenden möchte ich beschreiben wie man den eigenen Domino so einrichten kann, da? Mails automatisch von unterschiedlichen POP3 Konten abgeholt werden können und in unterschiedlichen Mailboxen auf dem Server zugestellt werden. Auch in der Version 6.51 besitzt der Server leider immer noch nicht die Fähigkeit, sich bei einem Provider vor dem Versand von SMTP Mails zu authentizieren. Mit einem kleinen Freeware Programm lässt sich aber auch diese Hürde nehmen.
Auch wenn die meisten Provider eigene Virenprogramme einsetzen, empfielt es sich dennoch auf dem Domino mit einem eigenen Virenscanner zu arbeiten. Da gleiche gilt auch für den Einsatz eines SPAM Filters.

Der installierte Server ist ND 6.51 englisch auf einem Windows 2000 Advanced Server deutsch ( 3.2 GHz, 1.5 GB RAM, 0.75 TB HD ). Die Anbindung an das Internet erfolgt über DSL. Neben dem Domino Server kommt noch folgende Software zum Einsatz:

pullmail.exe Freeware zur Abfrage der POP3 Konten ( 7th wave )
SMTP AUTH 2.0.1 Freeware zum Versenden von SMTP-Mails
NOD32 für Windows Virenscanner ( keine Freeware )
kSpam für ND / WIndows Freeware SPAM Filter für Lotus Notes

1. Serverdokument bearbeiten

Zunächst einmal muss der Domino Server für das Routing von Mail und SMTP Mail konfiguriert werden. Dazu sind im Serverdokument die Routing-Funktionen “Mail-Routing” und “SMTP-Mail-Routing” zu aktivieren. Ebenso muss der SMTP-Listener-Task eingeschaltet werden, da pullmail die Mails an den Domino Server per SMTP übermittelt.

Unter “Anschlüsse -> Internet-Anschlüsse -> Mail” werden folgende Ports für POP3 und SMTP eingestellt

Mail (POP3) 110
SMTP-Eingang 25
SMTP-Ausgang 10025 (!)

Die Wahl des Port 10025 bei SMTP-Ausgang ( DEFAULT = 25 ) ist wichtig, damit der Domino Server mit dem Programm SMTP-AUTH auf der gleichen Maschine installiert werden kann.

2. POP3 Mails abrufen

Zum Abrufen der E-Mails wird das Programm pullmail.exe verwendet. Das Programm mu? nicht installiert werden; ein einfaches Kopieren z.B. in das Notes Programmverzeichnis reicht aus.

pullmail wird über die Kommandozeile aufgerufen; daher können wir die Parameter in einer BATCH-Datei speichern und hinterher über den Scheduler von WINDOWS 2000 ausf?hren.

Meine pullfreenet.cmd sieht dann beispielhaft so aus:

pullmail ThePasswort / /to:ulrich.krause@eknori.local
pullmail ThePasswort / /to:ulrich.krause@eknori.local
pullmail ThePasswort / /to:ulrich.krause@eknori.local
pullmail ThePasswort / /to:ulrich.krause@eknori.local

In dem Beispiel werden 4 Konten von abgefragt. Hier habe ich ein Intervall von 2 Minuten eingestellt. z.B. erlaubt eine neuerliche Anmeldung erst nach 15 Minuten. Daher habe ich für unterschiedliche Provider je nach Gegebenheit und Notwendigkeit unterschiedliche Konfigurationen, die in einem getrennten geplanten Task im Scheduler aufgerufen werden.


Grundsätzlich ist es natürlich möglich, Mails via SMTP ?ber den Domino zu versenden. Bei der gewählten AnschluÃ?art über DSL verfügt der Server aber über keine feste IP Adresse. Ebenso fehlt ein MX -Eintrag; daher würden Mails in der Regel von den Systemen der Empfänger zurückgewiesen werden, da der Server nicht authentiziert werden kann.
Ein direktes Versenden ist daher nur bei fester IP-Adresse und entsprechendem MX-Eintrag möglich.

SMTP-AUTH ist ein Freeware Programm, das es ermöglicht, SMTP Mail an einen Provider zu übermitteln und die notwendigen Anmeldeinformationen mitzuliefern. Die Installation erfolgt über ein Setupprogramm. SMTP AUTH bietet in der Version 2.00 Beta 3 die Möglichkeit, die Software als Dienst zu betreiben. Das ist natürlich ideal für unsere Zwecke.

Nach der Installation kann das Konto für den SMTP Mailversand konfiguriert werden. Hier wird dann auch die Portnummer eingetragen (10025) , die wir in das Serverdokument eingetragen haben. Die Anmeldemethode AUTH PLAIN funktioniert mit und Mir wurde zugetragen, daÃ? die Methode auf AUTH LOGIN geändert werden muss, damit es auch mit einer Schlund und Partner Dom?ne funktioniert
Damit der Domino Server mit SMTP-AUTH kommunizieren kann, muÃ? in das Konfigurationsdokument des Servers noch ein Relay-Host eingetragen werden

Wichtig ist hier, daÃ? auch der Port 10025 mit angegeben wird, da sonst die Kommunikation auf dem DEFAULT Port 25 erfolgt; der Domino also quasi selber mit sich verbinden m?chte. Das mag er aus verständlichen Gr?nden aber nicht. Sind alle Einstellungen richtig, kann nun eine Testmail versendet werden. Die Console sollte dann sinngemäÃ? folgende Ausgaben zeigen

Der Domino Server sendet die Mail an den SMTP Proxy; dieser meldet sich mit den eingetragenen Daten beim Provider an und übermittelt die Mail.

4. Mails auf Viren scannen

Als Virenscanner kommt NOD32 der Firma ESET zu Einsatz. Einzelheiten zum Scanner können auf der Seite des Herstellers eingesehen werden. Das Windows-Portal WinTotal hat den Scanner 2003 getestet. Die Ergebnisse sind hier zu finden.
Der Scanner wird auf meinem Server sowohl als Schutz des Dateisystems eingesetzt (AMON) als auch zum scannen eingehender Mails (IMON).

Da NOD32 für Windows alle Mails direkt auf Winsock-Ebene abgreift und prüft, ist keine weitere Konfiguration nach der Installation notwendig. Lediglich der POP3-Port ist anzugeben; in unserem Fall 110.

NOD32 hat in meinen Tests alle Viren zuverlässig erkannt. Auch Viren im Archiven (zip, rar, ace) wurden erkannt und bereinigt.
Der Preis von ? 39,- umfasst einen Updateservice für 1 Jahr auf Programmupdates und die Online-Aktualisierung der Virensignaturen.

5. SPAM filtern mit kSpam

kSpam ist ein Open Source SPAM Filter (addin) für Lotus Notes/Domino und ist in einer Windows bzw. Linux Version erhältlich. Die neueste Version kann bei heruntergeladen werden.
Die Installation und Konfiguration ist im Download beschrieben. Mitlerweile läuft kSpam bei mir mit einer Erkennungsrate von 90% bei einer false positive rate von < 2%.

Determine Drive Types and Next Available Drive Letter

When dealing with drive types and letters it is nice to have a simple function to give you that information. The function shown below will cycle through each of the valid drives on the system running the program and tell you what each type is. Once it is finished, it tells you what the next available drive letter is. In dealing with network applications, it is sometimes necessary to add a drive letter for a new connection.

The first thing you will need is an API declaration. This declaration looks like the following:

Declare Function GetDriveType  Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String)As Long

The next thing you will need is the function to actually perform the work for you. The function looks like the following:

Function FreeDrive() As String
	Dim DriveNum As String    'To cycle through drive letters in order
	Dim DriveType As Long     'To hold the type of drive it is
	DriveNum = 64             'Prime the variable to be used in the loop
	 	DriveNum = DriveNum + 1   ' start at drive zero.
	 	DriveType = GetDriveType(Chr$(DriveNum) & ":")
	 		If DriveType = 1 And DriveNum > 67 Then Exit Do
	 			Select Case DriveType
	 				Case 0: MsgBox Chr$(DriveNum) + ": is An Unknown type"
	 				Case 1: MsgBox Chr$(DriveNum) + ": Does Not Exist"
	 				Case 2: MsgBox Chr$(DriveNum) + ": is a Removable Drive"
	 				Case 3: MsgBox Chr$(DriveNum) + ": is a Fixed Drive"
	 				Case 4: MsgBox Chr$(DriveNum) + ": is a Remote Drive"
	 				Case 5: MsgBox Chr$(DriveNum) + ": is a CD-ROM Drive"
	 				Case 6: MsgBox Chr$(DriveNum) + ": is a RAM Drive"
	 			End Select

	 FreeDrive = Chr$(DriveNum) + ":"  'Return the next available drive letter
	 End Function

Finally, you need to place the code in an event procedure or other routine to call the FreeDrive Function. In this case, we are simply calling the function by placing the return value into a message box.

Sub Click(Source As Button)
	Msgbox "Next Available Drive letter is " & FreeDrive()
End Sub

Distance Between 2 Points On Earth

Wie weit ist es von Mettmann nach Düsseldorf, oder von Mettmann nach Frankfurt ? Früher gab es mal so kleine Geräte, mit denen man in einer Karte die Entfernung zwischen zwei Städten dadurch bestimmen konnte, daÃ? man mit diesem Gerät die Strecke zwischen Start- und Zielort entlangfuhr. Die Entfernung lieÃ? sich dann auf einer analogen Scala ablesen; vorausgesetzt, man hatte den MaÃ?stab der verwendeten Karte richtig eingestellt.
Heute in digitalen Zeitalter stehen dazu weit bessere, genauere Methoden zur Verfügung. GPS z.B. ist eine davon. Viele Autos ( meines nicht ) haben bereits ein solches System eingebaut. Man kann Start- und Endpunkt eingeben und erfährt sogleich neben anderen Informationen die exakte zurückzulegende Strecke; auf den Meter genau (?).
Wie aber kann man auch Lotus Notes dazu bewegen, die Entfernung zwischen zwei Staedten zu berechnen ?
Im deutschen Notes Forum wurde diese Frage gestellt. Allerdings wurde hier nach einer Funktion gefragt, die z.B. Filialen in einem vorgegebenen Umkreis zum Standort anzeigt / auflistet.
Ich möchte mich hier zunächst einmal darauf beschränken, eine Funktion vorzustellen, die es ermöglicht, auf Grundlage vorgegebenen Ortskoordinaten die Entfernung zwischen zwei Orten zu berechnen.

die Originalformel von ( Visual Basic-Funktion zur Berechnung der Entfernung zwischen zwei Punkten auf der Erdoberfläche ) habe ich nach Lotus Script portiert.

Die Koordinaten müssen folgendermaÃ?en aufgebaut sein:

Mettmann 06E59 51N15

das bedeutet Mettmann liegt 51°15’00″Nord und 06°59’00″Ost.
Die Koordinaten habe ich einer Auflistung entnommen, die unter zu finden ist. Es werden gröÃ?tenteils die Sekunden bei den Koordinaten weggelassen; die Formel kann aber auch mit Koordinaten der Form 06E5922 51N1501 rechnen.

Hier ein Beispiel zum Funktionsaufruf.

Sub Click(Source As Button)
        'Mettmann    06E59      51N15
        'Düsseldorf   06E47      51N14
	Msgbox  dblDistanceBetween2PointsOnEarth ( "51N15" , "06E59" , "51N14 " , "06E47" )
End Sub
Function dblDistanceBetween2PointsOnEarth(  c1N As String, c1E As String, c2N As String, c2E As String ) As Double

'Die Funktion liefert die Entfernung zweier Punkte auf der Erdoberfl?che in km.
'Das Verfahren ber?cksichtigt die Erdabplattung und ist auch für sehr kleine Entfernungen genau.
'Keine Ber?cksichtigung der Höhe ?ber N.N.!
'Quelle: Jean Meeus - Astronomische Algorithmen (Auflage 1992, Verlag Johann Ambrosius Barth), Seite 93f, 118ff    '
	Dim phi1_rad As Double
	Dim lambda1_rad 	As Double
	Dim phi2_rad  As Double
	Dim lambda2_rad 	As Double
	Dim F 	As Double
	Dim sinF2 As Double
	Dim cosF2 As Double
	Dim G As Double
	Dim sinG2 As Double
	Dim cosG2 As Double
	Dim dl As Double
	Dim s 	As Double
	Dim C As Double
	Dim om As Double
	Dim R  As Double
	Dim cosD As Double
	Dim D As Double
	Dim H1  As Double
	Dim H2 As Double
	Dim DEG As String
	Dim MMSS As String
	'Needed constants Const
	Const RADIAN = Pi / 180
	' mittlerer Erdradius in km
	Const MEAN_RADIUS = 6371.299
	' Abplattung der Erde
	Const FLATTENING_FACTOR = 1 / 298.257
	' Ã?quatoradius in km
	Const EQUATOR_RADIUS = 6378.14

	'Convert to radians
	MMSS= atWord (c1N,"N",2)
	DEG = atWord (c1N,"N",1)

	If Len (MMSS) = 4 Then
		phi1_rad = (DEG + (Left$(MMSS,2)  / 60) + (Right$(MMSS,2)  / 3600)) * RADIAN
		phi1_rad = (DEG + (MMSS  / 60)) *RADIAN
	End If

	MMSS= atWord (c1E,"E",2)
	DEG = atWord (c1E,"E",1)
	If Len (MMSS) = 4 Then
		lambda1_rad = (DEG + (Left$(MMSS,2)  / 60) + (Right$(MMSS,2)  / 3600)) * RADIAN
		lambda1_rad = (DEG + (MMSS  / 60)) * RADIAN
	End If

	MMSS= atWord (c2E,"E",2)
	DEG = atWord (c2E,"E",1)
	If Len (MMSS) = 4 Then
		lambda2_rad = (DEG + (Left$(MMSS,2)  / 60) + (Right$(MMSS,2)  / 3600)) * RADIAN
		lambda2_rad = (DEG + (MMSS  / 60)) * RADIAN
	End If

	MMSS= atWord (c2N,"N",2)
	DEG = atWord (c2N,"N",1)
	If Len (MMSS) = 4 Then
		phi2_rad = (DEG + (Left$(MMSS,2)  / 60) + (Right$(MMSS,2)  / 3600)) * RADIAN
		phi2_rad = (DEG + (MMSS  / 60)) * RADIAN
	End If

	'Check on precise calculation
	cosD = Sin(phi1_rad) * Sin(phi2_rad) + Cos(phi1_rad) * Cos(phi2_rad) * Cos(lambda1_rad - lambda2_rad)
	If cosD < 0.999995 Then'Distance is long
		F = (phi1_rad + phi2_rad) / 2
		sinF2 = (Sin(F)) ^ 2
		cosF2 = (Cos(F)) ^ 2
		G = (phi1_rad - phi2_rad) / 2
		sinG2 = (Sin(G)) ^ 2
		cosG2 = (Cos(G)) ^ 2
		dl = (lambda1_rad - lambda2_rad) / 2
		s = sinG2 * (Cos(dl)) ^ 2 + cosF2 * (Sin(dl)) ^ 2
		C = cosG2 * (Cos(dl)) ^ 2 + sinF2 * (Sin(dl)) ^ 2
		om = Atn(Sqr(s / C))
		R = Sqr(s * C) / om
		H1 = (3 * R - 1) / (2 * C)
		H2 = (3 * R + 1) / (2 * s)
		dblDistanceBetween2PointsOnEarth = 2 * om * EQUATOR_RADIUS *_
		(1+ FLATTENING_FACTOR * H1 * sinF2 * cosG2  - FLATTENING_FACTOR * H2 * cosF2 * sinG2 )
	Else          'Distance is short
		dblDistanceBetween2PointsOnEarth = Sqr(((lambda2_rad - lambda1_rad) *_
		Cos((phi1_rad + phi2_rad) / 2)) ^ 2 + (phi2_rad - phi1_rad) ^ 2) * MEAN_RADIUS
	End If
End Function

Diese Formel gilt für Erdkoordinaten auf der nördlichen Erdhalbkugel und Werte die östlich von Greenwich liegen. Also Erdkoordinaten mit einem N und O. Die gleiche Formel kann man auch für alle anderen Koordianten benutzen, man muÃ? nur bei Süd- und Westwerten jeweils ein Minus davorstellen. Also S und W Werte mit -1 multiplizieren! Zum Splitten der Koordinatendaten wird die Funktion atWord verwendet. atWord ist das Lotus Script Ã?quivalent zu @Word

Function atWord ( sourceString As String, separator As String, number As Integer ) As String
	searchString$=SourceString & separator
' add one separator to catch also the last substring
	For i% = 1 To number
		pos%=Instr(searchString$, separator)
		If pos%=0 Then
			Exit For
			searchString$=Mid(searchString$, pos%+1)
		If pos% > 0 Then
		End If
End Function