Discussion :

[john stedd]

Bonjour,

comment est-il possible en vb6 d'obtenir le fuseau horaire défini dans les propriétés Date/Heure de Windows?

Merki.

[Theocourant]

Salut,

Ce que je peux te proposer c'est de récupérer le temps entre l'heure GMT et l'heure locale.

La voici

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
23
24
25
26
27
28
29
30
31
32
33
34
Public Declare Function GetTimeZoneInformation Lib "kernel32" _
                (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long
Public Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Integer
End Type
Public Type TIME_ZONE_INFORMATION
        Bias As Long
        StandardName(32) As Integer
        StandardDate As SYSTEMTIME
        StandardBias As Long
        DaylightName(32) As Integer
        DaylightDate As SYSTEMTIME
        DaylightBias As Long
End Type
 
Sub RecupFuseau()
Dim tmz As TIME_ZONE_INFORMATION
 
    'Récupération des données horaires
    GetTimeZoneInformation tmz
 
    'Affichage du fuseau
    'Bias calculé comme ceci
    'GMT = Heure locale + Bias
    MsgBox CStr(-tmz.Bias / 60)
 
End Sub

La procédure RecupFuseau affiche grâce au MsgBox le numéro du fuseau.

+

Théo