Ημερομηνίες

[vraxnakisg]

Καλησπέρα σας,

Γιώργο δες μια πρόταση

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

Ευχαριστώ.