01-02-23, 16:45
|
| Super Moderator Όνομα: ΓΙΩΡΓΟΣ Έκδοση λογισμικού Office: Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 14-01-2014
Μηνύματα: 234
| |
Καλησπέρα σας,
Γιώργο δες μια πρόταση
Private Sub cmd1_Click()
Dim ADate As Date
Dim BDate As Date
Dim Date1 As Boolean
Dim Date2 As Boolean
ADate = "01/01/2023"
BDate = "15/01/2022"
MsgBox (Format(ADate, "DD"))
MsgBox (Format(ADate, "MM"))
MsgBox (Format(ADate, "YYYY"))
MsgBox (Format(BDate, "DD"))
MsgBox (Format(BDate, "MM"))
MsgBox (Format(BDate, "YYYY"))
If Format(ADate, "YYYY") = Format(BDate, "YYYY") Then
Date1 = True
Else
Date1 = False
End If
MsgBox Date1
If DateDiff("d", BDate, Now) >= 365 Then
Date2 = False
Else
Date2 = True
End If
MsgBox Date2
End Sub
Ευχαριστώ.
|