08-11-10, 21:34
|
| Όνομα: Γιώργος Έκδοση λογισμικού Office: Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 18-06-2010
Μηνύματα: 3.674
| |
Καλησπέρα στην παρέα
Μάρω μπορείς να δοκιμάσεις και τον παρακάτω κώδικα: Κώδικας: Public Function EndOfMonth(d As Date) As Integer
EndOfMonth = Day(DateSerial(Year(d), Month(d) + 1, 0))
End Function
Φιλικά/Γιώργος
|