[kapetang]

Καλημέρα

Πασχάλη δοκίμασε:

1) Αντίγραψε τον παρακάτω κώδικα σε μια λειτουργική μονάδα (modulo)..

Public Function minDate(ParamArray d()) As Variant
    Dim min As Date, i As Variant
    min = #12/31/9999#
    For Each i In d
        If Nz(i, 0) <> 0 Then
            If i < min Then min = i
        End If
    Next
    If min <> #12/31/9999# Then minDate = min
End Function

Έτσι θα δημιουργηθεί η συνάρτηση χρήστη: minDate().

2) Δημιούργησε, σε ένα ερώτημα, ένα υπολογιζόμενο πεδίο με τύπο:

minDate([ημ/νια1];[ημ/νια2];[ημ/νια3];[ημ/νια4];[ημ/νια5];[ημ/νια6];[ημ/νια7];[ημ/νια8];[ημ/νια9])