Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [Συναρτήσεις] Υπολογισμός ηλικίας απο αριθμό(Α.Μ.Κ.Α.)

Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 25-06-19, 13:35
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-04-2013
Μηνύματα: 200
Προεπιλογή Υπολογισμός ηλικίας απο αριθμό(Α.Μ.Κ.Α.)

Καλησπέρα,
Προσπαθώ να υπολογίσω από αριθμό (Α.Μ.Κ.Α.) ηλικία,
Αυτό που αντιμετωπίζω είναι το εξής, όταν η χρονολογία του Α.Μ.Κ.Α.,
είναι μικρότερη από 1950 ο υπολογισμός βγάζει λάθος αποτέλεσμα, όταν όμως η χρονολογία είναι μεγαλύτερη από 1950 βγαίνει σωστό αποτέλεσμα.
Θα ήθελα τη βοήθεια σας.
Ευχαριστώ.
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm Calculate age.xlsm (32,3 KB, 15 εμφανίσεις)
Απάντηση με παράθεση
  #2  
Παλιά 25-06-19, 19:47
Το avatar του χρήστη ChrisGT7
Όνομα: Χρήστος Ζώρζος
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 20-09-2013
Περιοχή: Αθήνα
Μηνύματα: 184
Προεπιλογή

Καλησπέρα Γιώργο,

Δοκίμασε αν σε καλύπτουν οι αλλαγές που έκανα στον κώδικα.

Θεωρώ ότι ο ΑΜΚΑ απευθύνεται σε φυσικά πρόσωπα που έχουν γεννηθεί το 19ΧΧ και όχι μετά το 2000.
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm Ηλικία από ΑΜΚΑ (19ΧΧ).xlsm (24,0 KB, 15 εμφανίσεις)
__________________
Your Curiosity Will Be The Death Of You!!!
Απάντηση με παράθεση
  #3  
Παλιά 26-06-19, 08:33
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.357
Προεπιλογή

Καλημέρα
Στον αρχικό κώδικα του Γιώργου:
Όσες δοκιμές κι αν έκανα, με ημερομηνίες πριν το 1950, δεν υπάρχει σφάλμα.
Πάντα αποδίδει σωστά* την ηλικία.

Ο έλεγχος του Len σωστά προστέθηκε από τον Χρήστο, αν και η εφαρμογή
θα μπορούσε να δουλέψει και με τα έξι πρώτα ψηφία
μιας και σκοπός είναι ο υπολογισμός ηλικίας...

Τώρα
Το σωστά το έχω με αστερίσκο, διότι αν έχουμε παράδειγμα 100180...αποδίδει 38
Δεν ξέρω αν αυτό είναι επιθυμητό, ή αν πρέπει να αποδίδει 39.
Ανάλογα τι θέλετε ή τι θεωρείτε σωστό, μπορείτε να βάλετε στον υπολογισμό:
Κώδικας:
Label.Caption=(...)  +1 
ή και
Κώδικας:
Label3.Caption = Year(Date) - Year(TextBox2.Value)
Στο Click του «Καθαρισμός» και οι δύο κώδικες, αφήνουν το TextBox2 «Γεμάτο»
ενώ θα πρέπει να «Καθαρίσει»

Η εγκυρότητα του ΑΜΚΑ, είναι μια περίπτωση που πρέπει να ελεγχθεί
αν αυτό χρειάζεται τελικά,
αλλά αυτό είναι άλλο και μεγάλο κεφάλαιο...

Το κουμπί «Κλείσιμο», είναι άστοχο ως προς την ονομασία και μπερδεύει τον χρήστη.
Θα μπορούσε να έχει πιο σωστά ,ένα κώδικα πίσω του, που κλείνει απλά την φόρμα:
Κώδικας:
Unload Me
και να υπάρχει άλλο κουμπί με: «Έξοδος Από Την Εφαρμογή»
για πλήρη έξοδο...
Μπορούμε ακόμα να εξαφανίσουμε το κουμπί Χ της φόρμας...

Όμως
Αυτό που υπάρχει πίσω από το υπάρχον κουμπί:
Κώδικας:
Private Sub cmdClose_Click()
    ThisWorkbook.Close SaveChanges:=True
    Application.Quit
End Sub
ίσως κάποιες φορές (όχι πάντα, αλλά υπάρχει)
δημιουργήσει πρόβλημα, κλείνοντας και άλλα ανοιχτά βιβλία
με αποτέλεσμα, να χάσουμε δεδομένα...
Καλύτερα να βάλετε:
Κώδικας:
Private Sub cmdClose_Click()
    Dim i           As Integer
    i = Workbooks.Count
    If i > 1 Then
        ThisWorkbook.Close SaveChanges:=True
    Else
        ThisWorkbook.Close SaveChanges:=True
        Application.Quit
    End If
End Sub
Απάντηση με παράθεση
  #4  
Παλιά 26-06-19, 10:12
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-04-2013
Μηνύματα: 200
Προεπιλογή

Καλημέρα παιδιά,
Χρίστο σε Ευχαριστώ πολύ με την αλλαγή του κώδικα που έκανες δούλεψε τέλεια.

Σπύρο σε Ευχαριστώ πολύ για τις προτάσεις σου με το σωστό κώδικα για κλείσιμο της εφαρμογής, τις κράτησα στις σημειώσεις μου.

Σας Ευχαριστώ πολύ παιδιά,
Να είστε πάντα καλά!.

Με εκτίμηση
Γιώργος
Απάντηση με παράθεση
  #5  
Παλιά 26-06-19, 10:45
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.357
Προεπιλογή

Γιώργο, όπως ανέφερα πριν:
«Όσες δοκιμές κι αν έκανα, με ημερομηνίες πριν το 1950, δεν υπάρχει σφάλμα.»
μπορείς να αναπαράγεις ένα σφάλμα, για να δω τι παρουσιάζει στην αρχική σου φόρμα;
Απάντηση με παράθεση
  #6  
Παλιά 26-06-19, 11:21
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-04-2013
Μηνύματα: 200
Προεπιλογή

Γεια σου Σπύρο,
Ανέβασα εικόνα με «Print Screen» πιθανόν να υπάρχει καλύτερος τρόπος που δεν γνωρίζω,
Σε Ευχαριστώ για το ενδιαφέρον σου.
Συνημμένα Thumbnails
Υπολογισμός ηλικίας απο αριθμό(Α.Μ.Κ.Α.)-amka.jpg  
Απάντηση με παράθεση
  #7  
Παλιά 26-06-19, 11:28
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.357
Προεπιλογή

Αν βλέπω καλά στην εικόνα σου (δεν φαίνεται καθαρά)
ο αριθμός είναι:
24024901095

Αποδίδει 70 (?!)
Απάντηση με παράθεση
  #8  
Παλιά 26-06-19, 14:25
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-04-2013
Μηνύματα: 200
Προεπιλογή

Σωστά ο αριθμός είναι «24024901095» και αποδίδει «-29»
Απάντηση με παράθεση
  #9  
Παλιά 26-06-19, 14:27
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.357
Προεπιλογή

Δεν ξέρω...
Όπως σου είπα πριν, σε 'μένα αποδίδει 70.
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Συναρτήσεις] Υπολογισμός ημερομηνίας μετά από ορισμένο αριθμό ημερών costas5 Excel - Ερωτήσεις / Απαντήσεις 2 20-03-16 19:18
Εύρεση ηλικίας γιώργοςΚ Access - Ερωτήσεις / Απαντήσεις 3 09-01-14 14:34
[Συναρτήσεις] Υπολογισμός ηλικίας Antony Excel - Ερωτήσεις / Απαντήσεις 5 24-05-12 17:58
Υπολογισμός ηλικίας balex Access - Ερωτήσεις / Απαντήσεις 21 06-11-11 12:59
[ Φόρμες ] Υπολογισμός ηλικίας mgeorge Access - Ερωτήσεις / Απαντήσεις 4 29-05-11 20:04


Η ώρα είναι 18:33.