Bonjour,

J'ai une dll vb6 qui contient cette fonction :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.