Κώδικας για ημερομηνία έναρξης και λήξης έκαστου μήνα

[γιώργοςΚ]

Καλημέρα σε όλους,

ζητάω την βοήθεια σας για ένα μάλλον απλό θέμα, αλλά μέσα από τις δικές μου γνώσεις δεν μπορώ να τα "βολέψω".

Θα ήθελά λοιπόν να γράψω έναν κώδικα έτσι ώστε αφενός μέν εφόσον το Date() είναι κάπου στην μέση έκαστου μήνα (πχ 16/09/14) στα πεδία "DateStart" και "DateEnd" να μου δίνει αυτόματα τις εκάστοτε τιμές για την κάθε περίπτωση.

Δηλαδή:

Εάν σήμερα βρισκόμαστε στην 16η Σεπτεμβρίου 20014 (16/09/14) τότε στα πεδία "DateStart" να μου δίνει τιμή της έναρξης 01/09/14 και στο "DateEnd" να δίνει 30/09/14.

Ελπίζω να είμαι κατανοητός.

Ευχαριστώ πολύ

[kapetang]

Τα πεδία, πού βρίσκονται;

Όταν έχουμε μια ημερομηνία του Σεπτεμβρίου διαφορετική της 16/9/2014 τι θα δείχνουν τα πεδία;

Έχε υπόψη σου ότι η ημερομηνία μεταβάλλεται, οπότε θα μεταβάλλονται και οι τιμές των πεδίων.

[γιώργοςΚ]

Καλημέρα φίλε Γιώργο,

Τα πεδία είναι unbound και βρίσκονται σε μια φόρμα η οποία σκοπό έχει τον έλεγχο μιας διαδικασίας λήξης και έναρξης μιας χρονικής περιόδου η οποία προκαθορίζεται.

Το ζητούμενο είναι ουσιαστικά ο μήνας της κάθε ημερομηνίας Γιώργο οπότε οποιαδήποτε και εάν είναι η ημερομηνία πχ 21/09/14 ή 15/09/14 εμείς θέλουμε να παίρνουμε την έναρξη και ολοκλήρωση του κύκλου ημερών του 9του μήνα.

Θα μπορούσαμε με κώδικα Γιώργο να σταματήσουμε την συνεχή διαδικασία ενημέρωσης των 2 πεδίων έναρξης και λήξης (DateStart και DateEnd) ?

Ευχαριστώ και πάλιν για την πολύτιμη βοήθεια σου.
Νάσαι καλά

[kapetang]

Καλησπέρα

Γιώργο:

1) Μπορείς να υλοποιήσεις το ζητούμενο δίνοντας στην ιδιότητα Control Source (Προέλευση στοιχείου ελέγχου) των πλαισίων κειμένου DataStart και DataEnd, τιμή =DateSerial(Year(Date());Month(Date());1) και =DateSerial(Year(Date());Month(Date())+1;0), αντίστοιχα.

Τα πλαίσια κειμένου θα εμφανίζουν την ημερομηνία έναρξης και λήξης του τρέχοντα μήνα και φυσικά θα αλλάζουν, όταν ο τρέχων μήνας αλλάζει.

2) Για να μη αλλάζουν οι ημερομηνίες θα πρέπει οι επιθυμητές τιμές τους να αποθηκευτούν πχ σε πίνακα και να λαμβάνονται από κει.

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

[γιώργοςΚ]

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

Πρώτα - πρώτα σε ευχαριστώ πολύ για την βοήθεια. Μια όμως παράληψη δικιά μου ή αν θέλεις καλύτερα μια διευκρίνηση.

Οι συναρτήσεις που μου λές κάνουν ότι ακριβώς ζητάω με την διαφορά ότι εγώ θέλω να μήν λαμβάνουν ώς δεδομένο την ημερομηνία του υπολογιστή, θα ήθελα να λαμβάνουν υπόψη ένα άλλο πεδίο ημερομηνίας (το DateControl). Δηλαδή εφόσον επιλέξω οποιαδήποτε ημερομηνία απο αυτό το πεδίο τότε να παίρνω τις ανάλογες τιμές στα πιο πάνω πεδία (DateStart και DateEnd)

Επισυνάπτω ένα παράδειγμα.

Σε ευχαριστώ πάρα πολύ.

[kapetang]

Καλημέρα

Γιώργο, δες την επισυναπτόμενη ΒΔ.

[γιώργοςΚ]

Γειά σου και πάλι Γιώργο,

Ακριβώς αυτό ζητάω. Άψογος, απλά επειδή θέλω να αυτοματοποιήσω την διαδικασία πρόσθεσα στο On-Change Event του DateControl το Me.Form.Requery έτσι ώστε να ανανεώνει τις τιμές η φόρμα.

Σε κάθε περίπτωση σε ευχαριστώ πάρα πολύ και να είσαι πάντα καλά.