ελάχιστη τιμή ημερομηνίας

[pakos]

καλησπέρα στα μέλη του forum

θα ήθελα ένα τρόπο να παίρνω την ελάχιστη τιμή ημερομηνίας από ένα πίνακα ή ερώτημα στο οποίο έχει 9 διαφορετικά πεδία ημερομηνιών δηλ(ημ/νια1, ημ/νια2, .....ημ/νια9) και απο αυτά να εμφανίζει την min ημ/ινα (προφανώς κάποια πεδία να έχουν και μηδενικές τιμές)

με τιμή

Πασχάλης

[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])

[pakos]

ευχαριστώ πολύ φίλε μου με γλίτωσες από πολλά if