Type DATE en VB6.. à convertir en VB.NET ?

Bonjour,

J'ai une dll vb6 qui contient cette fonction :

Code:

---

Public Declare Function Term_SetTime Lib "Bp02SCK.dll" (ByVal FDate As Date, ByVal FTime As Date) As Int16

---

J'ai pour mission de récupérer la date et l'heure d'un appareil lié à cette DLL.

Cependant, il y a un probleme au niveau du format de la date / heure..


J'ai créé un bouton permettant d'updater la date et l'heure sur l'appareil lié à la DLL. L'heure s'affiche bien sur mon appareil, mais il semblerait que le format de la date, de l'heure ou des deux soit incorrecte. C'est une supposition, vu que j'ai un probleme au niveau des autres fonctions de la DLL quand j'appelle la fonction Term_SetTime.

Voici la fonction appelée quand j'appuie sur le bouton :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub UpdateClock()     Dim TNo As Integer Dim SNo As Short   'Term_CommCall est une Fonction de la DLL VB6 If Term_CommCall(TNo, SNo) = -1 Then   MsgBox("Failed")   Else   If Term_SetTime(DateValue(Format(DateTime.Now, "yyyy-MM-dd")), TimeValue(Format(DateTime.Now, "HH:mm:ss"))) = 0 Then MsgBox("Failed!", 16, "ERT") Else MsgBox("Date et heure envoyée", 65536, "ERT") End If     End If End Sub

---

Ma question : Le type Date en VB6 est-il le même en VB.NET ? Cela pourrait-il engendrer des bugs?

Merci.

bonjour

relire cet Rubrique (extrait Msdn doc):

Citation:

---

Modifications des types de données pour les utilisateurs de Visual Basic 6.0
Une Date est stockée sous un format Double utilisant huit octets

Dans Visual Basic 2008, le type de données Date utilise le type de données DateTime du Common Language Runtime, qui est une valeur entière codée sur huit octets. En raison de ces représentations différentes, il ne peut y avoir de conversion implicite entre les types de données Date et Double. Pour passer de Double à la représentation Visual Basic 6.0 de Date, utilisez les méthodes ToOADate et FromOADate de la structure DateTime dans l'espace de noms System.

---

il faudrait revoir cette declaration:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Public Class Form1 Private dt1 As Date Private double1 As Double Private dt2 As Date Private double2 As Double Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Dim n As Int16 = Term_SetTime(double1, double2) MessageBox.Show(Date.FromOADate(double1).ToLongDateString, Date.FromOADate(double2).ToLongDateString) End Sub   Public Declare Function Term_SetTime Lib "Bp02SCK.dll" (ByVal FDate As Double, ByVal FTime As Double) As Int16   End Class

---

bon code...