[Tasos]

Καλημέρα κι από μένα!

H EOMONTH δεν αποτελεί μέλος της Excel.WorksheetFunction() σε εκδόσεις παλαιότερες της 2007
και δεν προτείνεται σε καμία περίπτωση να συμπεριληφθεί στη VBA, στα πλαίσια ενός αυτοματισμού.

Ο κώδικας του Γιώργου είναι αυτός που πραγματικά αντικαθιστά την EOMONTH της Excel!
που μπορεί να χρησιμοποιηθεί και χωρίς το "Day(..." για να επιστρέψει ημερόμηνία πχ:

Function EndOfMonth(d As Date) As Date
    EndOfMonth = DateSerial(Year(d), Month(d) + 1, 0)
End Function

Φίλε Νάσο, καλωσόρισες στην παρέα μας!


Φιλικά

Τάσος