Question : Temps de converti d'est au localtime

Bonjour, le

I ont trouvé cette fonction : SystemTimeToTzSpecificLocalTime à employer pour convertir le temps de l'autre fuseau horaire en votre problème local de time.

The est je voudrais convertir le temps de l'est en mon heure locale et je ne sais pas remplir paramètre de lpTimeZoneInformation. J'ai vu dans un exemple que c'était zéro en convertissant de l'UTC en localtime.

Does quiconque savent remplir ce paramètre ? class= de

Réponse : Temps de converti d'est au localtime

Vous pouvez simplement employer la même fonction ajoutant la différence d'heures entre l'est et l'UTC

Disons que l'est est UTC moins 5 alors que vous pourriez employer n'importe quoi de pareil

Utilisations
DateUtils ;

{ajouter un TDateTimePicker à la forme}

procédé TForm1.Button1Click (expéditeur : TObject) ;
variété
  ESTTime : TDateTime ;
  fonction ESTToSystemTime (est : TDateTime) : TDateTime ;
  variété
    TimeZoneInf : _TIME_ZONE_INFORMATION ;
    ESTTime, LocalTime : TSystemTime ;
  commencer
    Est : = IncHour (est, -5) ;
    si GetTimeZoneInformation (TimeZoneInf) <�>    commencent
      DatetimetoSystemTime (est, ESTTime) ;
      si SystemTimeToTzSpecificLocalTime (@TimeZoneInf, ESTTime, LocalTime) puis
      commencer
        résultat : = SystemTimeToDateTime (LocalTime) ;
      extrémité
      autrement
        résultat : = EST ;
    extrémité
    autrement
      résultat : = EST ;
  extrémité ;

commencer
  ESTTime : = ESTToSystemTime (DateTimePicker1.DateTime) ;
extrémité ;