Ημερομηνίες

[γιώργοςΚ]

Καλησπέρα,

Εχω δύο ημερομηνίες, την ημερομηνία Α= 01/01/2023 και την ημερομηνία Β= 12/12/2022. Πρέπει να φτιάξω κωδικα ετσιο ωστε να σπάσω σε

1. Ημέρες (δηλαδή για την Α =01 και Β=12)
2. Μήνες (Α=01 και Β=12)
3. Ετος (Α=2023 και Β=2022)

Το ζητούμενο ειναι

Σε ενα εξωετρικό αρχείο .txt διαβάζω την πρώτη ημερομηνία (Α) και έχω στην βάση μου την Β ημερομηνία τις οποίες πρέπει να μπορώ να ελέγχω τα ακόλουθα

1. Εάν το έτος είναι ίδιο πχ 2023 να λαμβάνω Date1=True και αναποδα Date1=False οταν δεν ειναι ιδιο έτος
2. Οταν απο την ημερομηνία που έχουμε σήμερα (01/02/2023) η ημερομηνία στο .txt File (A) απέχει πέραν των 365 ημερών να λαμβάνω Date2=False ή Date2=True εάν και εφόσον η ημερομηνία σήμερα σε σχέση με αυτή στο εξωτερικό αρχείο .txt ειναι μέσα στο range των 365 ημερών..

θα εκτιμήσω την βοήθεια σας ή εστω καποια ιδέα

[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

Ευχαριστώ.