12-12-14, 02:06
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
Βέβαια ....
ο κώδικας αυτός που υπάρχει στο βιβλίο είναι :
και μεγάλος,
και χωρίς Option Explicit,
και χωρίς καμία δηλωμένη μεταβλητή,
και πιο καλά η εντολή να είναι στην προετοιμασία και όχι στην ενεργοποίηση της φόρμας,
και ... γενικά δεν είναι ότι καλύτερο.
Για να έχουμε μια ημερομηνία με την μορφή που θέλεις (Μαρτίου αντί Μάρτιος κλπ) αρκεί αυτό: Κώδικας: Private Sub UserForm_Initialize()
Me.TextBox1 = Format(Date, "dddd, dd ," & Choose(Month(Date), "Ιανουαρίου ", _
"Φεβρουαρίου ", "Μαρτίου ", "Απριλίου ", "Μαΐου ", "Ιουνίου ", "Ιουλίου ", _
"Αυγούστου ", "Σεπτεμβρίου ", "Οκτωβρίου ", "Νοεμβρίου ", "Δεκεμβρίου ") & _
", yyyy")
End Sub
|