ΑΡΙΘΜΗΣΗ ΗΜΕΡΟΛΟΓΙΑΚΟΥ ΚΥΚΛΟΥ

[gregory_m]

Καλησπερα στην κοινότητα,
θα ήθελα να ρωτήσω το εξείς και εφ όσον είναι εφικτό: πως μπορούμε να κάνουμε υπολογισμό στο παρακάτω.
Ας υποθέσουμε πως έχουμε :

7 ετη 6 μήνες και 14 μέρες και εν συνεχεία έχουμε 5 έτη 18 μήνες και 28 μέρες.

Πως μπορούμε να το υπολογήσουμε αυτόματα να μας δίνει
14 ετη 1 μήνα και 12 μέρες;
ΕΥΧΑΡΙΣΤΩ

[Meteora]

Καλημέρα σε όλους !
Αγαπητέ (ή) ανώνυμε (-η) μια απλοϊκή πρόταση είναι η εξής :

Private Sub Command21_Click()

    Dim xi As Integer, ci As Integer
    
    xi = 0
    ci = 0
    
    Me.Text18 = [imeresa] + [imeresb]
    Do While Me.Text18 > 30
        Me.Text18 = Me.Text18 - 30
        xi = xi + 1
    Loop

    Me.Text16 = [minesa] + [minesb] + xi
    Do While Me.Text16 > 12
        Me.Text16 = Me.Text16 - 12
        ci = ci + 1
    Loop

    Me.Text14 = [etia] + [etib] + ci
End Sub

[imeresa], [imeresb], ... είναι αριθμητικά πεδία ενός πίνακα και text14,... είναι πλαίσια κειμένου μιας φόρμας η οποία 'κάθεται' στον πίνακα. Φτιάχνεις ένα κουμπί και στο συμβάν 'με το κλικ' φορτώνεις τον παραπάνω κώδικα.

Δέξου την απάντησή μου ως μια αρχή για την λύση που επιθυμείς...

Νίκος Δ.

[Tasos]

Καλησπέρα Γρηγόρη και Νίκο!

Νίκο, Ο Γρηγόρης (αν μαντεύω σωστά) δεν είχε τη δυνατότητα να περάσει το όνομα του γιατί απλά δεν έβλεπε το πεδίο. Όταν εισήχθηκε ο λογαριασμός του δεν υπήρχε το συγκεκριμένο πεδίο κι έτσι παρέμεινε "Ανώνυμος".
Κι εσύ από την πλευρά σου έχεις δίκιο που διαμαρτύρεσαι γιατί δεν υφίσταται να αφιερώνεις χρόνο για κάποιον που δεν ξερεις καν το μικρό του όνομα.

Γρηγόρη, ενεργοποίησα το πεδίο στο προφίλ σου και πέρασα το όνομα "Γρηγόρης".
Μπορείς να το τροποποιήσεις αν θέλεις στις Χρήσιμες πληροφορίες

Φιλικά

Τάσος

[gregory_m]

Ακριβως έτσι είναι τα πράγματα.
Ευχαριστώ και τους δυό σας
Γρηγόρης

[kapetang]

Καλησπέρα στην παρέα
Και μια διαφορετική προσέγγιση, από του φίλου Νίκου.
Στηρίζεται στην ακέραια διαίρεση (στη VBA συμβολίζεται με: \) και στο υπόλοιπο (στη VBA συμβολίζεται με: mod).
Για τα συγκεκριμένα δεδομένα έχουμε:
Έτη: 7 + 5 +(6 + 18 + (14 + 28 )\30)\12
Μήνες: (6 + 18 + (14 + 28 )\30) mod 12
Μέρες: (14 + 28 ) mod 30
Μια δοκιμή στο παράθυρο «Immediate» φαίνεται παρακάτω:

?7+5+ (6+18+(14+28)\30)\12  
 14 
?(6+18+(14+28)\30) mod 12
 1 
?(14+28) mod 30
 12

Φιλικά/Γιώργος