DelphiでWindowsストアアプリの試用版を作ってみた

TWindowsStoreで試用残り時間が変な件

今更ながらWindowsStoreアプリを制作。忘れない様にメモしておくことにする。

他の方の投稿を参考にストアに公開することはできたのだが、試用期間の残り日数を表示すると、なんと10675199日となってしまう。
embacarderoのサンプルプログラム通りなのに・・・

こんなのとっくに誰もが通過した内容だろうと、ググってみるとハマっている方を発見。
だけども解決したか不明・・・ 全然情報無いのですがだれもやってないの？

LRemainingTrialDays := WindowsStore1.AppLicense.TrialTimeRemaining.Days;

色々やってみると、Microsoftのサンプルプログラム通り、下記の様にすることでまともな日数が取得できました。
ついでに、ExpirationDateは世界標準時の様で、Nowと比較するとおかしいことになるので、９時間進めて比較や表示を行いました。

ExpirationDateJ := WindowsStore1.AppLicense.ExpirationDate;
ExpirationDateJ := IncHour(ExpirationDateJ, 9);
LRemainingTrialDays := Round(DaySpan(Now, ExpirationDateJ));

ストアに公開しない（ローカル）で、試用版のテストを行う方法もわかったが、これもすぐに忘れそうな内容なので後でメモすることにします。