HAMLOG開発室BBS

Re: Pascal UTC to JST 投稿者：JA2BQX 太田

浜田さん、こんにちは。　ありがとうございます。

> 何が解らないのかが解らないのですが、HAMLOGでは、Windows-APIを
> 使って変換してます。

試していたサンプルが複雑過ぎて宣言が多くて現在のソースに追記するとその場所では不適切の様でコンパイルエラーが出たりしました。
もっと易しサンプルを．．．と思っていたら見つけてテストＯＫ、
ここで掲示板を見たら浜田さんの回答がありました。
私がテストしたのは下記のページの
function IncMonth(const DateTime: TDateTime; NumberOfMonths: Integer = 1) :TDateTime;
「月に1を追加します。
http://www.w3ii.com/ja/pascal/pascal_date_time.html

「月に1を追加」があるなら「時間に追加」もあるだろうと検索したら
下記がありました。
function IncHour(const AValue: TDateTime; const const AValue: TDateTime; const ANumberOfHours:Int64 ):TDateTime;

https://www.freepascal.org/docs-html/rtl/dateutils/inchour.html

浜田さんが提示してくれたサンプルは今から試します。

2017/08/05(Sat) 09:25:19 [No.810]

Call 名前	※必須
文字色	■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■
Ｅメール
タイトル	sage
ＵＲＬ
メッセージ	手動改行強制改行図表モードメッセージには上記と同じURLを書き込まないで下さい > 浜田さん、こんにちは。　ありがとうございます。 > > > > 何が解らないのかが解らないのですが、HAMLOGでは、Windows-APIを > > 使って変換してます。 > > 試していたサンプルが複雑過ぎて宣言が多くて現在のソースに追記するとその場所では不適切の様でコンパイルエラーが出たりしました。 > もっと易しサンプルを．．．と思っていたら見つけてテストＯＫ、 > ここで掲示板を見たら浜田さんの回答がありました。 > 私がテストしたのは下記のページの > function IncMonth(const DateTime: TDateTime; NumberOfMonths: Integer = 1) :TDateTime; > 「月に1を追加します。 > http://www.w3ii.com/ja/pascal/pascal_date_time.html > > > 「月に1を追加」があるなら「時間に追加」もあるだろうと検索したら > 下記がありました。 > function IncHour(const AValue: TDateTime; const const AValue: TDateTime; const ANumberOfHours:Int64 ):TDateTime; > > https://www.freepascal.org/docs-html/rtl/dateutils/inchour.html > > 浜田さんが提示してくれたサンプルは今から試します。
画像File	(130kBまで)
暗証キー	(英数字で8文字以内)
投稿キー	（投稿時を入力してください）
プレビュー