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

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - ελάχιστη τιμή ημερομηνίας (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/4673-elaxisti-timi-imerominias.html)

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

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

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

με τιμή

Πασχάλης

Καλημέρα

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

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

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