Hi,
es gibt die Funktionen @MIN, @MAX und @SORT. Min und max gehen evtl. nur mit Zahlen, Sort geht auch mit Daten.
Du kannst also eine getrimmte Liste an sort übergeben und die mit @subset(ergebnis; 1) das erste Element aus dem Ergebnis holen. Je nach Sortierreihenfolge ist es das "größte" oder "kleinste" Datum.
PS: Ich glaube, @SORT gibt es erst ab R6
Nennen wir die Datumsfelder einfach mal D1 bis D10 und das berechnete Ergebnis.
Dann ist
Field Ergebnis:=Ergebnis;
Ergebnis:=@If(D2>D1;D2;D1);
Ergebnis:=@If(D3>Ergebnis;D3;Ergebnis)
Ergebnis:=@If(D4>Ergebnis;D4;Ergebnis)
usw
Ungetestet und völlig ohne Gewähr aber immerhin ein Ansatz 
Oder in Script:
Click-event beim Button:
Dim ws As New notesuiworkspace Dim uidoc As notesuidocument Dim doc As notesdocument Set uidoc = ws.currentdocument Set doc = uidoc.document Dim dates(0 To 9) As Variant For i = 0 To 9 feld = i+1 dates(i) = doc.getitemvalue("D" + feld)(0) Next 'Hier wird die sortierte Liste in ein Feld geschrieben doc.sort_date = bubblesort(dates)
und dann noch zus.
Function Sort(av_SortList As Variant)
Dim ll_NumElements As Long
Dim lv_Current As Variant, lv_CurrentMax As Variant
Dim ll_PositionMax As Long
Dim i As Long, j As Long
ll_NumElements = Ubound(av_SortList)
For i = 0 To ll_NumElements
If Cstr(av_SortList(i)) <> "" Then
lv_CurrentMax = av_SortList(i)
Else
lv_CurrentMax = "01.01.01"
End If
ll_PositionMax = i
For j = i To ll_NumElements
If av_SortList(j) <> "" Then
lv_Current = av_SortList(j)
Else
lv_Current = "01.01.01"
End If
If Cdat(lv_Current) < Cdat(lv_CurrentMax) Then
lv_CurrentMax = lv_Current
ll_PositionMax = j
End If
Next
Call Swap(av_SortList(ll_PositionMax), av_SortList(i))
Next
sort = av_SortList
End Function
Sub Swap(ValueA As Variant, ValueB As Variant)
Dim ValueTmp As Variant
ValueTmp = ValueA
ValueA = ValueB
ValueB = ValueTmp
End Sub