CrypstalReports で日付の数値を年月日表記にする方法です。 日付のデータを年月日の8桁の数値として保存している場合に使えるコードです。
まず、式フィールドを作成します。 その中に、次のような式を書き込みます。 式の編集をするには 右クリックから式の編集を選択します。
1 2 3 4 |
Local NumberVar Y := {DBColumn} \ 10000; Local NumberVar M := ({DBColumn} MOD 10000) \ 100; Local NumberVar D := {DBColumn} MOD 100; CDate (Y, M, D); |
これで、数値を日付にすることができました。DBColumn のところには、データベースのフィールド名を入れてください。
しかし、これではまだ 1986/01/06
という形で表示されます。 この日付のフォーマットを変えるには、この式フィールドのプロパティを設定します。
DateFirstSeparator, DateSecondSeparator, DateSuffixSeparator それぞれに、”年”、”月”、”日” を入力すると、 1986年01月06日
というように表示されます。