[Γενικά] Απόδοση ημερομηνίας

[gfevran]

Καλησπέρα,
Εμφανίζει την ημερομηνία με το αμερικάνικο σύστημα π.χ. 05/17/1978
Αντί 17/05/1979 θα ήθελα τη βοήθεια σας για απόδοση με το σωστό τρόπο.
Ευχαριστώ για όποια βοήθεια.

[Spirosgr]

Καλησπέρα
Γιώργο, ο κώδικας που υπάρχει στο κουμπί υπολογισμού (και όχι μόνο), είναι ...χάλια!

Κατ' αρχάς, «λέει» ότι αν το μήκος (Len) της ημερομηνίας είναι 6 χαρακτήρες, θα κάνει κάτι...
Αλλιώς δεν υπολογίζει τίποτα.

Δηλαδή δεν θέλεις να υπολογιστεί μια ημερομηνία πχ: 12/11/2019 ή 10/12/95 κλπ;

Μια ακόμα ερώτηση.
Τι θέλεις να υπολογίσει και να εμφανίσει στην Label;
Την διαφορά ημερών από την γέννηση έως σήμερα;
Κατάλαβα καλά;

[gfevran]

Σπύρο Καλησπέρα,
μου το έδωσε ένας φίλος, θέλω να βάζοντας ημερομηνία να βρίσκω ηλικία.
Σ' Ευχαριστώ για την άμεση βοήθεια.

[Spirosgr]

Καλημέρα
Πριν απ' όλα,
να πούμε ότι για να βρούμε ηλικία από δοθείσα ημερομηνία,
δεν είναι απαραίτητο να έχουμε φόρμες και άλλα τέτοια...
Μπορούμε απλά, να κάνουμε υπολογισμούς στο φύλλο (μερικά παραδείγματα, στο βιβλίο)

Τώρα,
Αν έπρεπε να έχω μια εφαρμογή, που θα υπολόγιζε ηλικίες, οπωσδήποτε με φόρμα,
μπορείτε να δείτε ένα παράδειγμα στο βιβλίο,
στο οποίο προσπάθησα να είμαι όσο κοντά γίνεται σε αυτό που ανέβασε ο Γιώργος
(αν και θα το έκανα διαφορετικά)
διορθώνοντας κάποια πράγματα (πχ καθαρισμό πεδίων)
και προσθέτοντας ελέγχους όπως:

Να μην είναι το πεδίο ημερομηνίας κενό ή
Να μην είναι η ημερομηνία γέννησης μεγαλύτερη από το σήμερα κλπ

Ακόμα, στο κλείσιμο της εφαρμογής, διόρθωσα στον κώδικα το πολύ σοβαρό σφάλμα,
στο Application.Quit,
το οποίο κάνουν πάρα πολλοί φίλοι που γράφουν κώδικα...

Όταν χρησιμοποιούμε το Application.Quit,
ανεξάρτητα αν το βάζουμε σωστά ή λάθος ή... και πολλές φορές δεν δουλεύει σωστά,
πρέπει να ξέρουμε αν υπάρχουν κι άλλα βιβλία ανοιχτά...
Φανταζόμαστε μια εργασία σε ένα βιβλίο που μας πήρε μια ώρα και κόπο να την φτιάξουμε
ανοίγουμε την εφαρμογή για να υπολογίσουμε μια ηλικία για να συνεχίσουμε και
βγαίνοντας ...πάμε γι' άλλα...

Αν εκ παραδρομής μου ξέφυγε κάτι, ενημερώστε...

[gfevran]

Σπύρο Σε’ ευχαριστώ πολύ,
Εσύ μου έφτιαξες μια ολοκαίνουργια εφαρμογή απ’ την αρχή, που δεν έχει καμιά σχέση με αυτή που μου έδωσαν.
Με τις περιορισμένες γνώσει έως(ελάχιστες) που έχω στη Vba Εκείνο που θαυμάζω είναι πόσο επαγγελματικά είναι δομημένος ο κώδικας σου, τι να πω απλά Υποκλίνομαι.
Σε’ Ευχαριστώ για άλλη μια φορά.
Με εκτίμηση,
Γιώργος.

[Spirosgr]

Να 'σαι καλά Γιώργο, καλή συνέχεια.