> Pasacl 講座の続きですがお願いします。
>
> UTC を JST に変換する処理でつまずいています。
> VB2010 ではサンプルも多くあり既に出来ていますが Pasacl の例が少ないようで。
>
> Delphi のサンプルはそこそこありますが宣言の procedure 文の記載箇所が正しく無いようでエラーで落ちてしまったり
> 流用出来ないでいます。
何が解らないのかが解らないのですが、HAMLOGでは、Windows-APIを
使って変換してます。
var
Systm: TSYSTEMTIME;
Filtm1, Filtm2: TFILETIME;
begin
if SystemTimeToFileTime(Systm, Filtm1) and
// LocalFileTimeToFileTime(Filtm1, Filtm2) and // JST => UTC
FileTimeToLocalFileTime(Filtm1, Filtm2) and // UTC => JST
FileTimeToSystemTime(Filtm2, Systm) then
変換完了!;
end;