[VBA] Υπολογισμός ηλικίας σε έτη & μήνες

[gfevran]

Καλησπέρα σε όλη την κοινότητα,
θα ήθελα μέσα από Userform δίνοντας ημερομηνία γέννησης,
να υπολογίζει π.χ ημερ.γεν.180286 το αποτέλεσμα να είναι 35 έτη 8 μήνες!
ανεβάζω συνημμένο που το έκανα πάλι με τη δική σας βοήθεια το οποίο σαν αποτέλεσμα
βγάζει δεκαδικό π.χ. 35,70 έτη, δηλ. 70 εκατοστά του έτους!
εδώ θα ήθελα τη βοήθεια σας.
Ευχαριστώ για όποια βοήθεια.

[kapetang]

Καλησπέρα

1) Η φόρμα δε μπορεί να υπολογίσει ηλικίες μεγαλύτερες των 100 ετών.

2) Ο υπολογισμός γίνεται κατά προσέγγιση θεωρώντας μια μέση διάρκεια έτους 365.25 μέρες.

3) Για την αλλαγή που ζητάς θα πρέπει να τροποποιηθεί σημαντικά ο κώδικας και ο σχεδιασμός της φόρμας.

4) Κατά τη γνώμη μου η φόρμα δεν είναι περισσότερο βολική από ένα φύλλο εργασίας.

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

Πιθανόν να σε καλύπτει.