Forum

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

Πάμε!

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 20-01-10, 14:53
Όνομα: Γιώργος Καψάλης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 18-11-2009
Μηνύματα: 126
Προεπιλογή SQL

καλησπέρα σε όλους..

Έχω ένα θέμα που αφορά SQL και το βάζω εδώ....!

Γνωρίζει κανείς πώς μπορώ σε SQL να βρώ την τελευταία μέρα του μήνα..!

δλδ

Έχουμε την τρέχουσα ημερομηνία και π.χ 20/01/2010.
θέλω λοιπόν να δώσω ένα κρητίριο που να ζητάω να μου εμφανήσει όλα τα δεδομένα απο 31/01/2010 και μικρότερα. αλλα αυτό να γίνετε για κάθε μήνα..

Θα προσπαθήσω να γίνω πιό σαφής..
Κάθε 1η του μήνα εμφανήζω μια λίστα για επικοινωνία με πελάτες για όλο των μήνα (1ο), καθώς και για τους πελάτες προηγουμένων μηνών που δεν προλαβαν να καλέσουν..

πως μπορώ λοιπόν να "πω" στον SQL ότι την 01/02/2010 βρες μου όλους τους πελάτες απο 28/02/2010 και κάτω..?

πελάτες Ιανουαρίου - Δεκεμβρίου κλπ


Γιώργος
Απάντηση με παράθεση
  #2  
Παλιά 20-01-10, 16:35
Το avatar του χρήστη editolis
Super Moderator
Όνομα: Τολης
Έκδοση λογισμικού Office: Ms-Office 2000, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-01-2010
Περιοχή: ATHENS-GREECE
Μηνύματα: 190
Προεπιλογή

Θα χρειαστεις αυτον το κωδικα:

Public Function LastDayInMonth(ByVal AnyDate As Date) As Date

LastDayInMonth = DateAdd("m", 1, DateSerial(Year(AnyDate), Month(AnyDate), 1)) - 1

End Function

Οπου AnyDate η ημερομηνια σου.

Για να το δοκιμασεις δημιουργησε στο ερωτημα σου μια νεα στηλη: Testit: LastDayInMonth([?????????])

Μετα ειναι ευκολο να βρεις τους πελατες που ζητας δινοντας αυτο το κριτηριο.

Τελευταία επεξεργασία από το χρήστη editolis : 20-01-10 στις 17:02.
Απάντηση με παράθεση
  #3  
Παλιά 20-01-10, 17:29
Όνομα: Γιώργος Καψάλης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 18-11-2009
Μηνύματα: 126
Προεπιλογή

Φίλε editolis καλησπέρα

Η εντολη DateSerial δεν πρέπει να υπάρχει στον SQL..!
Απάντηση με παράθεση
  #4  
Παλιά 20-01-10, 17:35
Όνομα: Γιώργος Καψάλης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 18-11-2009
Μηνύματα: 126
Προεπιλογή

Υ.Γ θέλω το κριτίριο να μπει στον SQL γιατι τα δεδομένα ειναι πάρα πολλά και μέσω δικτύου.. όπως καταλαβενεις αποφευγω να μεταφέρων πολλά δεδομένα μέσω δικτίου και ειδικά όταν είναι αρκετοι οι χρήστες..

οπότε τα περισοτερα κριτιρια τα βάζω στον SQL για να μεταφέρω λιγότερα δεδομένα..
Απάντηση με παράθεση
  #5  
Παλιά 20-01-10, 19:21
Το avatar του χρήστη editolis
Super Moderator
Όνομα: Τολης
Έκδοση λογισμικού Office: Ms-Office 2000, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-01-2010
Περιοχή: ATHENS-GREECE
Μηνύματα: 190
Προεπιλογή

Αν και δεν γνωριζω καλα αυτο που κανεις βρηκα κατι στο ΙΝΤΕΡΝΕΤ
σε παρομοιο προβλημα:

-- To Get the last day of the month
SELECT DATEADD(dd,-DAY(BPD.NRD),DATEADD(mm,1,BPD.NRD))

Εσυ τροποποιησετο αναλογα και καλη συνεχεια.
Απάντηση με παράθεση
  #6  
Παλιά 21-01-10, 08:58
Όνομα: Γιώργος Καψάλης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 18-11-2009
Μηνύματα: 126
Προεπιλογή

Καλημέρα editolis

Φίλε σε ευχαριστώ πάρα πολύ.. αφενός που το πέδεψες. αφετέρου μου έλησες μεγάλο πρόβλημα..

Να έχει μια καλή μέρα

Γιώργος
Απάντηση με παράθεση
  #7  
Παλιά 13-02-10, 09:26
Το avatar του χρήστη nisgia
Super Moderator
Όνομα: Γιάννης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 12-10-2009
Περιοχή: Ηγουμενίτσα
Μηνύματα: 186
Προεπιλογή Πρώτη και τελευταία ημέρα του μήνα

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

Ένας ακόμη τρόπος είναι ο εξής:

Κώδικας:
SELECT DateAdd("m",1,Date()-Day(Date())) AS LDoM;
(LDoM: Last Day of Month)

Αφαιρούμε τον αριθμό ημερών από την τρέχουσα ημερομηνία και προσθέτουμε έναν μήνα.
Έτσι ερχόμαστε στην τελευταία ημέρα του τρέχοντος μήνα.

Και όπως ίσως καταλάβατε, η έκφραση (Date()-Day(Date()))+1
μας επιστρέφει την πρώτη ημέρα του τρέχοντος μήνα.

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

Τελευταία επεξεργασία από το χρήστη nisgia : 13-02-10 στις 13:56.
Απάντηση με παράθεση
  #8  
Παλιά 13-02-10, 12:45
Όνομα: Γιώργος Καψάλης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 18-11-2009
Μηνύματα: 126
Προεπιλογή

καλημερα Γιαννη..!

Εγραψες..!!!!!!!!!!!!

Γιώργος
Απάντηση με παράθεση
  #9  
Παλιά 13-02-10, 13:59
Το avatar του χρήστη nisgia
Super Moderator
Όνομα: Γιάννης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 12-10-2009
Περιοχή: Ηγουμενίτσα
Μηνύματα: 186
Προεπιλογή

Thank's Γιώργο!

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

Ετικέτες
εύρεση ημέρας, πρώτη ημέρα του μήνα, τελευταία ημέρα του μήνα

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

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

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



Η ώρα είναι 12:10.