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/884-arithmhsh-hmerologiakoy-kykloy.html)

gregory_m 17-12-10 22:08
ΑΡΙΘΜΗΣΗ ΗΜΕΡΟΛΟΓΙΑΚΟΥ ΚΥΚΛΟΥ
 
Καλησπερα στην κοινότητα,
θα ήθελα να ρωτήσω το εξείς και εφ όσον είναι εφικτό: πως μπορούμε να κάνουμε υπολογισμό στο παρακάτω.
Ας υποθέσουμε πως έχουμε :

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

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

Meteora 18-12-10 10:51
Καλημέρα σε όλους !
Αγαπητέ (ή) ανώνυμε (-η) μια απλοϊκή πρόταση είναι η εξής :
Κώδικας:
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 18-12-10 16:12
Καλησπέρα Γρηγόρη και Νίκο!

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

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

Φιλικά

Τάσος

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

kapetang 18-12-10 18:26
Καλησπέρα στην παρέα
Και μια διαφορετική προσέγγιση, από του φίλου Νίκου.
Στηρίζεται στην ακέραια διαίρεση (στη 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
Φιλικά/Γιώργος


Η ώρα είναι 02:08.

Ms-Office.gr - ©2000 - 2025, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2