|
▼ Mr.XRAYさん
> > DateUtilsのHourBetWeenでしたっ
HoursBetween でしたね。
しかし、まあ、なんと言うか、しっくりこないような・・・
DateUtilsは重宝します。
> procedure TForm1.Button1Click(Sender: TObject);
> var
> STime,ETime :TTime;
> SH :Word;
> A : Double;
> begin
> STime := StrToTime('8:00');
> ETime := StrToTime('21:00');
> A:=DaySpan(STime,ETime);
> SH:=HourOf(A);
> end;
は、良いようですね。
でも、HoursBetweenも、たまたま「あれっ！？」て事がわかったので
ちょっと心配(^_^;)。
まあ、その時はその時で・・・
|