[ Συναρτήσεις ] Ημερομηνία

[Meteora]

Γιώργο μου σε ευχαριστώ.
Κάτι με θυμίζει αυτό το Format που αναφέρεις... Ίσως μια συζήτηση στο παρόν Forum...
Δοκίμασα την πρότασή σου σε μια εφαρμογή μου, όπου τα περιεχόμενα του πίνακα tbldanio τα εμφανίζω σε φόρμα.
Η μορφή της ημερομηνίας στη φόρμα είναι στη γνώριμη έκφραση dd/mm/yyyy οπότε έφτασα σε επιθυμητό αποτέλεσμα !

Η εντολή :

 DoCmd.RunSQL "INSERT INTO tbldanio ([kodbiblio],[imeraarxi],[imeratelos],[idpelati],[epistrofi]) VALUES (" & x &  _
", #" & Format(Date, "yyyy/mm/dd") & "#, #" & Format(DateAdd("d", 15, Date), "yyyy/mm/dd") & "# ," & c & ", '" & d & "')"

• Τοποθετεί τις ημερομηνίες σε μορφή ημέρα/μήνας/έτος στον πίνακα ( ...? )
• Είναι ορατές στον πίνακα ( αν στην καρτέλα General του πεδίου σε περιβάλλον σχεδίασης επιλέξουμε Format "Short Date"
• Εμφανίζονται σωστά και στη φόρμα

... όμως δεν μπορώ να εξηγήσω τι συμβαίνει.

Αν στον υπολογιστή σου ζητήσεις αποθήκευση με Format yyyy/mm/dd τι αποτέλεσμα έχεις στον πίνακα ;
Φιλικά / Νίκος Δ.

[kapetang]

Καλησπέρα

Νίκο τα παρακάτω ίσως βοηθήσουν στην εξήγηση των προβλημάτων που δημιουργούν οι ημερομηνίες και οι ώρες, σε σχέση και με τις τοπικές ρυθμίσεις.
Στην access, αλλά και γενικά, η ημερομηνία και η ώρα σε μία χρονική στιγμή ισούται με το χρόνο που πέρασε από μία άλλη, που θεωρείται αφετηρία.
Ο χρόνος αυτός μετράται σε μέρες και εκφράζεται με ένα δεκαδικό αριθμό διπλής ακρίβειας στον οποίο το ακέραιο μέρος αντιστοιχεί στην ημερομηνία και το δεκαδικό στην ώρα.
Οι ημερομηνίες και οι ώρες στον υπολογιστή ουσιαστικά αποθηκεύονται ως δεκαδικοί αριθμοί. Επίσης οι πράξεις με ημερομηνίες και ώρες είναι πράξεις με δεκαδικούς.
Στην καθημερινή ζωή, ανάλογα και με την περιοχή, η ημερομηνία και η ώρα εκφράζεται με μορφές «dd/mm/yyyy» (πχ Ελλάδα), «mm/dd/yyyy»(πχ Αμερική) και όχι ως δεκαδικός αριθμός.
Αυτό δημιουργεί το ερώτημα σε ποια μορφή πρέπει να δώσουμε την ημερομηνία και την ώρα για να αποθηκευτεί ο σωστός δεκαδικός;
Από ότι κατάλαβα σε ένα υπολογιστή ρυθμισμένο στην ελληνική ημερομηνία πρέπει:

1. Στις συνδεδεμένες φόρμες και τα αποθηκευμένα ερωτήματα να δίνεται στην ελληνική μορφοποίηση (dd/mm/yyyy).
2. Στις εκφράσεις που δημιουργούνται με κώδικα VBA στην αμερικάνικη (mm/dd/yyyy).

Από τη στιγμή που αποθηκευτεί ο σωστός δεκαδικός για την ημερομηνία και την ώρα μπορούμε να τον εμφανίσουμε (σε ερώτημα, φόρμα, έκθεση) σε οποιαδήποτε μορφή θέλουμε (πχ yyyy/mm/dd).

Φιλικά/Γιώργος
ΥΓ Κατά τη γνώμη μου απαιτείται μια αναλυτικότερη παρουσίαση από κάποιον που γνωρίζει καλά το θέμα.

[kapetang]

Καλημέρα στην παρέα

Στη βάση δεδομένων που επισυνάπτεται παρουσιάζονται οι συνηθέστερες μορφές ημερομηνίας μαζί με τις εκφράσεις που πρέπει να χρησιμοποιούνται, ώστε οι ημερομηνίες να αποθηκεύονται και να εμφανίζονται σωστά.
Αφορμή για τη δημιουργία της αποτέλεσε σχετικό μήνυμα του φίλου μου Νίκου (meteora).
Οι εκφράσεις (τύποι) προέκυψαν από δοκιμές του Νίκου και δικές μου και αφορούν συστήματα (PC) στα οποία η ημερομηνία έχει καθοριστεί (στις τοπικές ρυθμίσεις) στη μορφή (dd/mm/yyyy).
Η ΒΔ αποτελείται από μία φόρμα «frmDates» δεσμευμένη στον πίνακα «tblDates» και ένα ερώτημα προσθήκης «qryAddDates».
Με τη βοήθεια των στοιχείων ελέγχου της φόρμας μπορούμε να προσθέσουμε στον πίνακα ημερομηνίες, με διαφορετικές μορφοποιήσεις και να τις εμφανίσουμε στο δεσμευμένο πλαίσιο κειμένου, στην ελληνική μορφοποίηση «dd/mm/yyyy».
Στη φόρμα επίσης μπορούν να γίνουν και κάποιες πράξεις με ημερομηνίες και να εμφανιστούν τα αποτελέσματα.
Η λειτουργικότητα της φόρμας οφείλεται στο ερώτημα προσθήκης «qryAddDates», στους τύπους που υπάρχουν στην προέλευση στοιχείου στα τελευταία πλαίσια κειμένου που εμφανίζουν τα αποτελέσματα των πράξεων με ημερομηνίες και στον παρακάτω κώδικα.

Private Sub cmdDMY2_Click()
    'Προσθήκη ημερομηνίας με πρόταση SQL
    'Η μορφή της ημερομηνίας από ελληνική μετατρέπεται σε αμερικάνικη
    DoCmd.RunSQL "Insert Into tblDates Values (#" & Format(Me!txtDMY2, "mm/dd/yyyy") & "#);"
    Me.Requery
    Me.Recordset.MoveLast
End Sub

Private Sub cmdMDY_Click()
    'Προσθήκη ημερομηνίας με πρόταση SQL
    'Η μορφή της ημερομηνίας επειδή είναι σε μορφή ΗΠΑ δε μετατρέπεται

    DoCmd.RunSQL "Insert Into tblDates Values (#" & Me!txtMDY & "#);"
    Me.Requery
    Me.Recordset.MoveLast
End Sub

Private Sub cmdYMD_Click()
    'Προσθήκη ημερομηνίας με πρόταση SQL
    'Η μορφή της ημερομηνίας yyyy/mm/dd αναγνωρίζεται σωστά χωρίς μετατροπή

    DoCmd.RunSQL "Insert Into tblDates Values (#" & Me!txtYMD & "#);"
    Me.Requery
    Me.Recordset.MoveLast
End Sub

Παρατηρήσεις, διορθώσεις και βελτιώσεις είναι ευπρόσδεκτες.

Φιλικά/Γιώργος

[Meteora]

Καλησπέρα σε όλους μας...
Γιώργο, δουλειές σαν αυτή που μας πρόσφερες, τις χαρακτηρίζω χρόνια τώρα ως "Μουσκεμένο παξιμάδι", έχοντας-κάθε φορά- στο νου μου την μάνα που μασάει την τροφή για να τη προσφέρει στο μωρό της...
Θερμά σε ευχαριστώ / Φιλικά Νίκος Δ.