Πρώτα Βήματα - Αρχές προγραμματισμού

Απ: Πως να μετατρέψω μια ημερομηνία-ώρα απο string σε date;

Παναγιώτης Καναβός — Wed, 18 Feb 2009 23:14:04 GMT

acmilangr:

σε ευχαριστώ για την απάντηση και να είσαι σίγουρος πως το δοκίμασα.

αλλα μου ενφανίζει το εξής error σε αυτόν τον κώδικα

name "cultureinfo" is not declared

Αυτό δεν το ανέφερες. Είναι δύσκολο να βγάλει άκρη ο Μάνος όταν δεν του λες τί έχεις δοκιμάσει. Το μόνο σίγουρο είναι ότι η DateTime.Parse και η CultureInfo δεν έχει πρόβλημα. Αν υπάρχει θέμα, βρίσκεται αλλού.

Από την άλλη, ο μόνος τρόπος να πάρεις τέτοιο error είναι να ξεχάσεις να χρησιμοποιήσεις το κατάλληλο namespace. Θα προσπαθήσω να μαντέψω κι εγώ, όπως και ο Μάνος νωρίτερα, και θα υποθέσω ότι δεν έχεις βάλει Option Explicit, και έγραψες κώδικα στον οποίο δεν έχεις γράψει το Imports System.Globalization.
Αν ισχύει αυτό, ο Μάνος έχει δίκιο και θα πρέπει επιτέλους να μας δώσεις τον κώδικα που χρησιμοποιείς.

Ρίξε και μία ματιά στο sample της CreateCultureInfo που υπάρχει στο documentation. Είναι εξαιρετικά απλό και δεν υπάρχει αμφιβολία ότι δουλεύει:

Imports System
Imports System.Globalization

Public Class SamplesCultureInfo

Public Shared Sub Main()

' Prints the header.
Console.WriteLine("CULTURE SPECIFIC CULTURE")

' Determines the specific culture associated with each culture in the .NET Framework.
Dim ci As CultureInfo
For Each ci In CultureInfo.GetCultures(CultureTypes.AllCultures)
Console.Write("{0,-12} {1,-40}", ci.Name, ci.EnglishName)
Try
Console.WriteLine("{0}", CultureInfo.CreateSpecificCulture(ci.Name).Name)
Catch e As ArgumentException
Console.WriteLine("(no associated specific culture)")
End Try
Next ci

End Sub 'Main

End Class

Απ: Πως να μετατρέψω μια ημερομηνία-ώρα απο string σε date;

acmilangr — Wed, 18 Feb 2009 22:07:41 GMT

KelMan:

Μου φαίνεται δεν έκανες τον κόπο να διαβάσεις αυτά που σου έγραψα. Γιατί θα είχες δει την εναλλακτική σύνταξη της Parse όπου στα παραδείγματα έχει ακριβώς αυτό που ψάχνεις. Όπως και να έχει θα είχες καταλήξει σε κάτι τέτοιο:

Dim culture As CultureInfo
dim db_imerominia as string
dim mydate as datetime
db_imerominia=ds.Tables("mydb").Rows(I).Item(4)
culture = CultureInfo.CreateSpecificCulture("en-US")
styles = DateTimeStyles.None
mydate = DateTime.Parse(db_imerominia, culture, styles)

Ο παραπάνω κώδικας προϋποθέτει ότι όντως είναι σε αμερικάνικο format η ημερομηνία και ότι η βάση δεν περιέχει λανθασμένες ημερομηνίες. Διαφορετικά θα πρέπει να βάλεις την τελευταία γραμμή σε Try/Catch όπως στο παράδειγμα.

σε ευχαριστώ για την απάντηση και να είσαι σίγουρος πως το δοκίμασα.

αλλα μου ενφανίζει το εξής error σε αυτόν τον κώδικα

name "cultureinfo" is not declared

Απ: Πως να μετατρέψω μια ημερομηνία-ώρα απο string σε date;

KelMan — Wed, 18 Feb 2009 21:49:18 GMT

Μου φαίνεται δεν έκανες τον κόπο να διαβάσεις αυτά που σου έγραψα. Γιατί θα είχες δει την εναλλακτική σύνταξη της Parse όπου στα παραδείγματα έχει ακριβώς αυτό που ψάχνεις. Όπως και να έχει θα είχες καταλήξει σε κάτι τέτοιο:

Dim culture As CultureInfo
dim db_imerominia as string
dim mydate as datetime
db_imerominia=ds.Tables("mydb").Rows(I).Item(4)
culture = CultureInfo.CreateSpecificCulture("en-US")
styles = DateTimeStyles.None
mydate = DateTime.Parse(db_imerominia, culture, styles)

Ο παραπάνω κώδικας προϋποθέτει ότι όντως είναι σε αμερικάνικο format η ημερομηνία και ότι η βάση δεν περιέχει λανθασμένες ημερομηνίες. Διαφορετικά θα πρέπει να βάλεις την τελευταία γραμμή σε Try/Catch όπως στο παράδειγμα.

Απ: Πως να μετατρέψω μια ημερομηνία-ώρα απο string σε date;

acmilangr — Wed, 18 Feb 2009 21:19:14 GMT

Ωραια λοιπόν έχουμε τα εξής:

dim db_imerominia as string

dim mydate as datetime

db_imerominia= ds.Tables("mydb").Rows(I).Item(4) 'σε αυτό το πεδίο της database υπάρχει αυτό το περιεχόμενο "2/18/2009 2:30:00 PM"

mydate = DateTime.Parse(db_imerominia)

οταν το τρέχω μου δείχνει :σφάλμα: Η συμβολοσειρά δεν αναγνωρίστηκε ως έγκυρο DateTime.

θέλω να περάσω στην μεταβλητή mydate το περιεχόμενο της db_imerominia όμως επειδή έχει μορφή 2/18/2009 και όχι 18/2/2009 μου ενφανίζει αυτό το σφάλμα. πως μπορώ να το διορθώσω;

Απ: Πως να μετατρέψω μια ημερομηνία-ώρα απο string σε date;

KelMan — Wed, 18 Feb 2009 20:35:06 GMT

Το πρόβλημα είναι ότι έχουμε φτάσει τα 10 μηνύματα και δεν έχεις γράψει ούτε μία γραμμή κώδικα για να δούμε τι συμβαίνει... Έτσι δεν γίνεται δουλειά.

Απ: Πως να μετατρέψω μια ημερομηνία-ώρα απο string σε date;

acmilangr — Wed, 18 Feb 2009 20:15:47 GMT

Παναγιώτης Καναβός:
greekwow:

και τι δεν δοκίμασα χωρίς αποτέλεσμα

οποιοσδήποτε μπορεί να μου δώσει εναν απλό κώδικα θα του ήμουν ευγνώμων

Η DateTime.Parse είναι μόνο μία γραμμή. Ποιό απλό δεν γίνεται.

Υποψιάζομαι ότι το πρόβλημα σου δεν έχει να κάνει με το parsing αλλά με το locale του υπολογιστή σου. Η DateTime.Parse μεταφράζει τα strings χρησιμοποιώντας τις ρυθμίσεις του χρήστη για την ημερομηνία που είναι ΚΑΛΟ ΠΡΑΓΜΑ. Οι ημερομηνίες που μας δίνεις είναι σε αμερικάνικη μορφή. Αν το μηχάνημα σου είναι ρυθμισμένο σε ελληνική γλώσσα, η ημερομηνία 2/11/2009 θα μεταφραστεί σε 2 Νοεμβρίου, ενώ η 2/17/2009 θα αποτύχει.

Το πραγματικό πρόβλημα σε τέτοιες περιπτώσεις είναι ότι αποθήκευσες την ημερομηνία ως string σε κάποιο σημείο ενώ δεν έπρεπε. Στην περίπτωση σου, στη βάση. Αν αποθήκευσες την ημερομηνία ως string από ένα μηχάνημα με αμερικάνικο locale, η σημερινή ημερομηνία (18/2) θα αποθηκεύτηκε ως 2/18. Όταν πας να την διαβάσεις από ελληνικό μηχάνημα, το parsing λογικά θα αποτύχει. Μπορείς μεν να πεις στην DateTime.Parse ποιό locale να χρησιμοποιήσει, αλλά αυτό είναι απλά πασάλειμα και επίδεσμος. Η σωστή λύση είναι να αποθηκεύσεις την ημερομηνία στη βάση σωστά. Όλες οι βάσεις δεδομένων υποστηρίζουν πεδία date, οπότε δεν πρέπει να έχεις πρόβλημα.

Ακριβώς αυτό ειναι το πρόβλημα μου. ότι στην βάση που έχω η ημερομηνία ειναι απο αγγλικό μηχάνημα και για αυτό η parse αποτυχάνει.

το κακό ειναι ότι την βάση την πέρνω έτοιμη και πως θα πρέπει χειροκίνητα να την αλάζω εγώ για αυτό και ψάχνω τρόπο να την μετατρέπει η VB αυτόματα

Απ: Πως να μετατρέψω μια ημερομηνία-ώρα απο string σε date;

Παναγιώτης Καναβός — Wed, 18 Feb 2009 16:55:08 GMT

greekwow:

και τι δεν δοκίμασα χωρίς αποτέλεσμα

οποιοσδήποτε μπορεί να μου δώσει εναν απλό κώδικα θα του ήμουν ευγνώμων

Η DateTime.Parse είναι μόνο μία γραμμή. Ποιό απλό δεν γίνεται.

Υποψιάζομαι ότι το πρόβλημα σου δεν έχει να κάνει με το parsing αλλά με το locale του υπολογιστή σου. Η DateTime.Parse μεταφράζει τα strings χρησιμοποιώντας τις ρυθμίσεις του χρήστη για την ημερομηνία που είναι ΚΑΛΟ ΠΡΑΓΜΑ. Οι ημερομηνίες που μας δίνεις είναι σε αμερικάνικη μορφή. Αν το μηχάνημα σου είναι ρυθμισμένο σε ελληνική γλώσσα, η ημερομηνία 2/11/2009 θα μεταφραστεί σε 2 Νοεμβρίου, ενώ η 2/17/2009 θα αποτύχει.

Το πραγματικό πρόβλημα σε τέτοιες περιπτώσεις είναι ότι αποθήκευσες την ημερομηνία ως string σε κάποιο σημείο ενώ δεν έπρεπε. Στην περίπτωση σου, στη βάση. Αν αποθήκευσες την ημερομηνία ως string από ένα μηχάνημα με αμερικάνικο locale, η σημερινή ημερομηνία (18/2) θα αποθηκεύτηκε ως 2/18. Όταν πας να την διαβάσεις από ελληνικό μηχάνημα, το parsing λογικά θα αποτύχει. Μπορείς μεν να πεις στην DateTime.Parse ποιό locale να χρησιμοποιήσει, αλλά αυτό είναι απλά πασάλειμα και επίδεσμος. Η σωστή λύση είναι να αποθηκεύσεις την ημερομηνία στη βάση σωστά. Όλες οι βάσεις δεδομένων υποστηρίζουν πεδία date, οπότε δεν πρέπει να έχεις πρόβλημα.

Απ: Πως να μετατρέψω μια ημερομηνία-ώρα απο string σε date;

KelMan — Wed, 18 Feb 2009 16:30:37 GMT

greekwow:

και τι δεν δοκίμασα χωρίς αποτέλεσμα

οποιοσδήποτε μπορεί να μου δώσει εναν απλό κώδικα θα του ήμουν ευγνώμων

Μιας και είσαι νέος στο community μας, να σου πω ότι για να μπορέσουμε να σε βοηθήσουμε θα πρέπει να θέτεις σαφείς ερωτήσεις προκειμένου να παίρνεις σαφείς απαντήσεις. Διαφορετικά δεν μπορούμε παρά να σε κατευθύνουμε στο documentation που όμως στην συγκεκριμένη περίπτωση έχει πλήρη κώδικα. Για να μην καταφέρεις να βγάλεις άκρη θα πρέπει να ξεκινήσουμε από τον κώδικά σου. Τι ακριβώς δοκίμασες; Τι αποτέλεσμα σου έβγαλε αυτό που δοκίμασες; Τι λάθος παίρνεις αν δεν παίρνεις αποτέλεσμα;

Ορίστε απλός κώδικας:

Dim dateString, format As String
Dim result As Date
Dim provider As CultureInfo = CultureInfo.InvariantCulture

' Parse date and time with custom specifier.
dateString = "Sun 15 Jun 2008 8:30 AM -06:00"
format = "ddd dd MMM yyyy h:mm tt zzz"
Try
result = Date.ParseExact(dateString, format, provider)
Console.WriteLine("{0} converts to {1}.", dateString, result.ToString())
Catch e As FormatException
Console.WriteLine("{0} is not in the correct format.", dateString)
End Try

Πρόκειται για τον ίδιο κώδικα που έχει στο MSDN, μόνο που θα πρέπει να βάλεις το "dd/MM/yyyy h:mm:ss tt" ως format. Το δοκίμασες και δεν παίζει;

Απ: Πως να μετατρέψω μια ημερομηνία-ώρα απο string σε date;

manosB — Wed, 18 Feb 2009 08:30:22 GMT

Λοιπόν πρώτα θα πάρεις την ημερομηνία μόνο και θα την βάλεις σε μια date μεταβλητή. Αυτό μπορεί να γίνει με πολλούς τρόπους παρακάτω ένας, αν έχεις απορρίψει τους παραπάνω: Dim myString As String = "21/1/2009 2:30:00 PM" Dim myDAte As Date = DateSerial(CType(myString.Substring(5, 4), Integer), CType(myString.Substring(3, 1), Integer), CType(myString.Substring(0, 2), Integer)) (εννοείτε με λίγη φροντίδα ο κώδικας γίνεται πιο γενικός) Μετά κάνεις ένα έλεγχο στο string αν είναι AM ή PM και με την DateAdd προσθέτεις ώρες και λεπτά ή ώρες + 24 και λεπτά.

Απ: Πως να μετατρέψω μια ημερομηνία-ώρα απο string σε date;

greekwow — Wed, 18 Feb 2009 07:27:31 GMT

και τι δεν δοκίμασα χωρίς αποτέλεσμα

οποιοσδήποτε μπορεί να μου δώσει εναν απλό κώδικα θα του ήμουν ευγνώμων

Απ: Πως να μετατρέψω μια ημερομηνία-ώρα απο string σε date;

KelMan — Wed, 18 Feb 2009 06:56:33 GMT

Κοίτα στο παράδειγμα εδώ: http://msdn.microsoft.com/en-us/library/w2sa9yss.aspx

Πρέπει να κάνεις κάτι ανάλογο με "dd/MM/yyyy h:mm:ss tt"

Απ: Πως να μετατρέψω μια ημερομηνία-ώρα απο string σε date;

greekwow — Wed, 18 Feb 2009 06:28:54 GMT

Dim s As String

Dim returnValue As DateTime

s = "22/2/2009 2:30:00 PM"

returnValue = DateTime.Parse(s)

MsgBox(s)

------------

το "21/1/2009 2:30:00 PM" το δέχεται αλλα το "1/21/2009 2:30:00 PM" δεν το δέχεται και αυτό γιατί στην πρώτη περίπτωση η ημέρα ειναι πρώτα και μετά ειναι ο μήνας

τι μπορώ να κάνω για να το δέχεται ανάποδα;

με λιγα λόγια θέλω να μετατρέψω το 1/21/2009 2:30:00 PM σε 21/1/2009 2:30:00 PM

Απ: Πως να μετατρέψω μια ημερομηνία-ώρα απο string σε date;

KelMan — Wed, 18 Feb 2009 06:24:34 GMT

Οι σύνδεσμοι που σου παρέθεσα σε βγάζουν σε αντίστοιχες σελίδες με τρεις διαφορετικές συντάξεις για κάθε ένα από τα δύο methods. Κάθε σύνταξη έχει και αντίστοιχο παράδειγμα. Πραγματικά δεν έχω κάτι καλύτερο να γράψω ως παράδειγμα. Το ποια μέθοδο και ποια σύνταξη θα χρησιμοποιήσεις εξαρτάται, ανάλογα με τις ανάγκες σου.

Απ: Πως να μετατρέψω μια ημερομηνία-ώρα απο string σε date;

greekwow — Wed, 18 Feb 2009 05:59:32 GMT

ευχαριστώ πολύ για την απάντηση

μήπως γίνεται να μου πείτε ακριβώς τον κώδικα;

Απ: Πως να μετατρέψω μια ημερομηνία-ώρα απο string σε date;

KelMan — Wed, 18 Feb 2009 05:57:26 GMT

Θα πρέπει να χρησιμοποιήσεις την DateTime.Parse ή την DateTime.ParseExact.