prob decalage horaire

salut
je prends des fichiers sur un serveur FTP et je les download sur mon poste. ensuite je change la date de ces fichiers pour qu ils aient la meme date que les originaux sur le ftp. le probleme est que windows me fait un decalage horaire sur les dates. donc pour l instant betement je fais un -2 hsur la date. mais ca sera pas cool pour l horaire d hiver. je cherche donc une methode qui me permette de modifier la date en fonction du type d'horaire (ete,hiver) sur lequel on est merci d avance

Voici une fonction Api pour retrouver cette info sur ton ordi...

Private Declare Function GetTimeZoneInformation Lib "kernel32" (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long

'Constante sur économie d'énergie
Const TIME_ZONE_ID_UNKNOWN = 0 'Fuseau horaire inconnu
Const TIME_ZONE_ID_STANDARD = 1 'Fuseau horaire normal
Const TIME_ZONE_ID_DAYLIGHT = 2 'Fuseau horaire été


Sub QuelleFuseau()
Dim InfoFuseauHoraire As TIME_ZONE_INFORMATION
Dim RéponseEnRetour As Long


'recherche le fuseau horaire du pc
RéponseEnRetour = GetTimeZoneInformation(InfoFuseauHoraire)
CorrectionDuFuseau = InfoFuseauHoraire.Bias
If RéponseEnRetour = TIME_ZONE_ID_STANDARD Then '1
MsgBox "Votre Ordi est à l'heure normale"
ElseIf RéponseEnRetour = TIME_ZONE_ID_DAYLIGHT Then '2
MsgBox "Votre Ordi est à l'heure normale"
'corrige selon votre fuseau horaire et l'heure d'été(time saving) en minutes
CorrectionDuFuseau = CorrectionDuFuseau + InfoFuseauHoraire.DaylightBias 'fuseau + heure été
Else 'retour inconnu = 0
MsgBox "Incapable d'obtenir information du fuseau horaire.", vbExclamation, "Erreur"
End If
End Sub

Il manque la definition des Time_Zone_information pour pouvoir utilisé cette API.

Je rentre hier (1/08/2003) du mexique et j'ai eu un problème de (fuseau horaire VB+W2000)
donc j'ai beaucoup d'interet pour cette API.

'---------------------------------------------------------

Private 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

'Type pour infos de fuseau horaire
Private Type TIME_ZONE_INFORMATION
Bias As Long
StandardName As String * 64
StandardDate As SYSTEMTIME
StandardBias As Long
DaylightName As String * 64
DaylightDate As SYSTEMTIME
DaylightBias As Long
End Type


-------------------------------
Réponse au message :
-------------------------------

> Voici une fonction Api pour retrouver cette info sur ton ordi...
>
> Private Declare Function GetTimeZoneInformation Lib "kernel32" (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long
>
> 'Constante sur économie d'énergie
> Const TIME_ZONE_ID_UNKNOWN = 0 'Fuseau horaire inconnu
> Const TIME_ZONE_ID_STANDARD = 1 'Fuseau horaire normal
> Const TIME_ZONE_ID_DAYLIGHT = 2 'Fuseau horaire été
>
>
> Sub QuelleFuseau()
> Dim InfoFuseauHoraire As TIME_ZONE_INFORMATION
> Dim RéponseEnRetour As Long
>
>
> 'recherche le fuseau horaire du pc
> RéponseEnRetour = GetTimeZoneInformation(InfoFuseauHoraire)
> CorrectionDuFuseau = InfoFuseauHoraire.Bias
> If RéponseEnRetour = TIME_ZONE_ID_STANDARD Then '1
> MsgBox "Votre Ordi est à l'heure normale"
> ElseIf RéponseEnRetour = TIME_ZONE_ID_DAYLIGHT Then '2
> MsgBox "Votre Ordi est à l'heure normale"
> 'corrige selon votre fuseau horaire et l'heure d'été(time saving) en minutes
> CorrectionDuFuseau = CorrectionDuFuseau + InfoFuseauHoraire.DaylightBias 'fuseau + heure été
> Else 'retour inconnu = 0
> MsgBox "Incapable d'obtenir information du fuseau horaire.", vbExclamation, "Erreur"
> End If
> End Sub