Forum
ms-office.gr > Forum > Microsoft Office > Visual Basic for Applications (VBA) > [Access - VBA] Ημερομηνία τέλευταίας ημέρας επόμενου μήνα

Visual Basic for Applications (VBA) Ερωτήσεις / Απαντήσεις σε σχέση με τη χρήση της VBA.

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 28-02-10, 19:17
Το avatar του χρήστη Meteora
Συντονιστής
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 28-12-2008
Περιοχή: Θεσσαλονίκη
Μηνύματα: 533
Προεπιλογή Ημερομηνία τέλευταίας ημέρας επόμενου μήνα

Καλησπέρα στην κοινότητα !
Ζητώ την ημερομηνία για την τελευταία ημέρα του επόμενου μήνα. Έφτιαξα την εξής έκφραση :
=DateSerial (year(date), month(date)+2, 1) -1
Δουλεύει !
Όμως εκείνο το -1 στο τέλος- τέλος που έβαλα δεν αντιλαμβάνομαι πως εκφράζει ημέρα και όχι έτος ή μήνα...
Φιλικά / Νίκος
Απάντηση με παράθεση
  #2  
Παλιά 28-02-10, 19:54
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 1.157
Προεπιλογή

Νίκο καλησπέρα!

DateSerial () ) Σειριακός αριθμός ημερών με αφετηρία την πρώτη ημέρα του
έτους 1900 μχ. (01/01/1900).

Το παρακάτω μας δείχνει το σειριακό αριθμό της σημερινής ημέρας :

Κώδικας:
 Debug.Print CDbl(DateSerial(Year(Date), Month(Date), Day(Date)))
ή
 MsgBox CDbl(DateSerial(Year(Date), Month(Date), Day(Date)))
ή 
MsgBox  CDbl(Date)
Άρα DateSerial(....) - 1 = O Σειριακός αριθμός της ημερομηνίας -1

Τα λέμε...
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών σε VB.Net, Access, Excel, Outlook, Word
Απάντηση με παράθεση
  #3  
Παλιά 28-02-10, 20:26
Το avatar του χρήστη Meteora
Συντονιστής
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 28-12-2008
Περιοχή: Θεσσαλονίκη
Μηνύματα: 533
Προεπιλογή

Τάσο ευχαριστώ
Τώρα ξέρω γιατί ειναι σωστή η έκφραση που έγραψα...
Να είσαι καλά φίλε μου
Νίκος
Απάντηση με παράθεση
  #4  
Παλιά 05-03-10, 01:33
Το avatar του χρήστη nisgia
Super Moderator
Όνομα: Γιάννης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 12-10-2009
Περιοχή: Ηγουμενίτσα
Μηνύματα: 186
Προεπιλογή

Επίσης Νίκο, η έκφραση =DateSerial (year(date), month(date)+2, 0)
είναι ισοδύναμη με την έκφραση που έγραψες.

Η "μηδενική" ημέρα ενός μήνα είναι η τελευταία ημέρα του προηγούμενου μήνα.

Τα λέμε...
Γιάννης
__________________
Αν δεν το ρωτούσες, δεν θα το μαθαίναμε ποτέ...!
-----------------------------------------------
Τελικά η γνώση, αντίθετα με ό,τι μέχρι σήμερα πίστευα, είναι η φυλακή της σκέψης.
Όταν η αφετηρία είναι η ελεύθερη σκέψη, δεν χρειάζεται πλέον να φτάσεις πουθενά!
Απάντηση με παράθεση
Απάντηση στο θέμα

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

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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[ Ερωτήματα ] Εμφάνιση Ημέρας ΤΖΙΜΗΣ Access - Ερωτήσεις / Απαντήσεις 7 03-07-11 19:08
[Γενικά] Συγκεντρωτικό για όλο τον μήνα. misirlis Excel - Ερωτήσεις / Απαντήσεις 12 10-06-11 11:20
[ Φόρμες ] Αντιστοιχία Ημερομηνίας - Ημέρας mgeorge Access - Ερωτήσεις / Απαντήσεις 3 04-06-11 20:35
[Συναρτήσεις] Τελευταία ημέρα του ίδιου μήνα PanosPan Excel - Ερωτήσεις / Απαντήσεις 7 24-09-10 17:25
[ Ερωτήματα ] Ερώτημα μέτρησης ανά όνομα ημέρας enikolo Access - Ερωτήσεις / Απαντήσεις 21 19-05-10 19:58


Η ώρα είναι 15:46.