Δείτε το παρακάτω κομμάτι κώδικα και πείτε μου που κάνω λάθος..Εχω κολήσει πολύ και δεν το βρίσκω !!!

<DllImport("kernel32.dll", setLastError:=True)> Private Shared Function SetSystemTime(ByRef DateTimeToSet As SystemTime) As Boolean
                                                End Function
  Private Shared Function SyncTime(ByVal DateTimeToSet As String) As Boolean
    Dim Temp As SystemTime

    If DateTimeToSet.Trim <> "" Then
      Temp.wYear = CType(DateTimeToSet.Trim, DateTime).Year
      Temp.wMonth = CType(DateTimeToSet.Trim, DateTime).Month
      Temp.wDayOfWeek = CType(DateTimeToSet.Trim, DateTime).DayOfWeek
      Temp.wDay = CType(DateTimeToSet.Trim, DateTime).Day
      Temp.wHour = CType(DateTimeToSet.Trim, DateTime).Hour
      Temp.wMinute = CType(DateTimeToSet.Trim, DateTime).Minute
      Temp.wSecond = CType(DateTimeToSet.Trim, DateTime).Second
      Temp.wMilliseconds = CType(DateTimeToSet.Trim, DateTime).Millisecond

      SyncTime = SetSystemTime(Temp)
    End If
  End Function

Υπόθέστε ότι το DateTimeToSet έχει σωστή ώρα μέσα !!!
 

Εμ ..Μου κάνει set την ώρα αλλά μου βάζει τα δευτερόλεπτα για ώρα .....
Τι λάθος κάνω ..?

Κάνε ένα cast όλο το DateTimeToSet σε DateTime object type και πάρε τις τιμές απο εκεί μια-μια. Μην κάνεις cast κάθε φορά. Δεν ξέρω εάν παίζει ρόλο, γενικά σαν συμβουλή στο λέω.

---

Παναγιώτης Κεφαλίδης

"Για να επιτύχεις, θα πρέπει το πάθος σου για την επιτυχία να είναι μεγαλύτερο απο τον φόβο σου για την αποτυχία"

Οι απαντήσεις παρέχονται για συγκεκριμένες ερωτήσεις και χωρίς καμιά εγγύηση. Παρακαλώ διαβάστε τους όρους χρήσης.

Επίσης, θα πρέπει να έχεις υπόψη ότι η SetSystemTime χρησιμοποιεί UTC time, οπότε η ώρα που θα δεις στο ρολόι του υπολογιστή σου θα είναι αυτή που έδωσες +2/3 ώρες (ανάλογα με το αν έχουμε θερινή ώρα)

---

Παναγιώτης Καναβός, Freelancer
Twitter: http://www.twitter.com/pkanavos

Δεν έχει κανένα πρόβλημα με το γεγονός ότι κάνω πολλά CTYPE...

Παναγιώτη έτσι ακριβώς συμβαίνει..Εχει απλά 2-3 ώρες διαφορά. Πως θα του ορίσω ότι η ώρα που έχω δεν έιναι UTC..? AutoDetect δεν έχει ..? Και αν δεν γίνεται πως αλλίως μπορώ να πειράξω την ώρα ..?

Την λύση την βρίκα τελικά..Αντί για την SetSystemTime έβαλα την SetLocalTime και τρέχει κανονικά...Μια χαρά όλα !!

Το πρόβλημα με τα επαναλαμβανόμενα CType είναι ότι ξοδεύεις συνέχεια χρόνο για να κάνεις parse το string, δημιουργείς 8-9 περιττά temporary strings με την Trim, δεν έχεις καμμία εξασφάλιση ότι θα πετύχει (ποιό είναι το format που καταλαβαίνει η CType?) και κάνεις και τον κώδικα άσχημο και δυσανάγνωστο. Καλύτερα να χρησιμοποιήσεις την DateTime.Parse ή την DateTime.TryParse για να μετατρέψεις το string μία φορά σε DateTime και να το χρησιμοποιήσεις μετά. Μπορείς επίσης να ορίσεις ακριβώς το format που περιμένεις να έχει το string που θα κάνεις parse.

Από εκεί και πέρα, η SetSystemTime εξ ορισμού περιμένει UTC, οπότε τί autodetection να έχει? Για να δώσεις local time ή θα μετατρέψεις την μεταβλητή DateTime με την  DateTime.ToLocalTime ή θα χρησιμοποιήσεις την SetLocalTime η οποία περιμένει local time. Κοίτα πάντως και το documentation για τις μεταβλητές που περνάς. Θα δεις για παράδειγμα ότι το πεδίο DayOfWeek αγνοείται και από τις δύο συναρτήσεις, ενώ όλα τα πεδία του SYSTEMTIME είναι 16 bit unsigned. Όχι ότι αυτό δημιουργεί το πρόβλημα, αλλά στο παρασκήνιο η VB κάνει αυτή την μετατροπή χωρίς να το ξέρεις.

Τέλος, βεβαιώσου ότι το string που περνάς είναι σωστό. Μπορεί ένα λάθος στον κώδικα που δημιουργεί το string να προκαλεί το πρόβλημα.

---

Παναγιώτης Καναβός, Freelancer
Twitter: http://www.twitter.com/pkanavos

Καλά...Καλά..Ευχαριστώ Πάντως δουλεύει χωρίς πρόβλημα.