Access日付関数で条件により文字表記させたい

質問

購入した製品の保証期間の管理をAccessで行っています。今少し満足できない点がありまして、ご相談させて頂きました。尚、Accessは2007でOSはwindows10です。

[やっていること]
購入した商品の購入日を元に保証終了日迄の残り日数を管理しています。内容的にはテキストボックスデータ（名前）[本日]を参照して、残り日数を関数記述のテキストボックス（名前）[有効期限最終日]に表示させています。

[やりたいこと]
保証期間の残り日数を関数記述のテキストボックス（名前）[有効期限最終日]に表示させていますが、保証日を過ぎた場合の表記がマイナス数値になってしまいます。マイナス数値ではなく文字（保証終了とかの）で表記させたいと思っています。私のやりたいことは可能でしょうか。※問題認識＝今の私に可能可否を判断するスキルさえ無いこと。

[内容詳細]
[フォームの構成]
以下の３つのテキストボックスの構成で残り日数を表示させています。
・テキストボックス１（フォーム窓のみ） ＝ 名前：本日、コントロールソース：Data()
・テキストボックス２（テーブル参照）＝ 名前：有効期限最終日
・テキストボックス３（フォーム窓のみ）＝ 名前：テキスト１、コントロールソース：=DateDiff("d",[本日],[有効期限最終日])

以上ですが、宜しくお願いします。

回答No.2

tamu1129 · ベストアンサー

テキストボックス３のコントロールソース変えるだけでいけるのでは？
=Iif(DateDiff("d",[本日],[有効期限最終日])>0,DateDiff("d",[本日],[有効期限最終日]),"保障終了")

お礼

早速、アドバイスを頂きました。今、関数で設定していますので、そのまま複写しました。瞬時に希望通りの変更ができました。ありがとうございます。

回答No.1

山田 太郎（@f_a_007）

添付図のやり方でＯＫかと思います。ただ、IIF()を使った場合の記述が長ったらしいのが気になるようでしたら関数化されるといいです。
Public Function GuaranteePeriod(ByVal timeNow As Date, _
　　　　　　　　　　　　　　　ByVal timeLast As Date) As Variant
　　GuaranteePeriod = _
　　　　IIf(timeNow <= timeLast, DateDiff("d", timeNow, timeLast), "保証終了")
End Function

お礼

早速アドバイスをいただきまして有難うございました。関数化への気遣いを頂きました。正直、見抜かれた気持ちです。今、関数で記述していますので・・・。しかし、アドバイスの方法は言葉に近いので少しづつ身に付けたいと思います。ありがとうございました。