1

私のデータベースには、YYYYMMDD形式で日付値を格納するために使用しているvarchar（8）タイプの日付フィールドがあります。次の形式で日付範囲を表示するための単純なCR式を作成するのに問題があります。

2012年10月1日から2012年10月31日

これが私の現在の非常に魅力のないCR式です。

stringvar yYear;
stringvar mMonth;
datevar OrigDate;
numbervar StartDay;
stringvar EndDay;

yYear := Mid ({Command.Date}, 1, 4);

select Mid ({Command.Date}, 5, 2)
case "01": mMonth:= "January"
case "02": mMonth:= "Februry"
case "03": mMonth:= "March"
case "04": mMonth:= "April"
case "05": mMonth:= "May"
case "06": mMonth:= "June"
case "07": mMonth:= "July"
case "08": mMonth:= "August"
case "09": mMonth:= "September"
case "10": mMonth:= "October"
case "11": mMonth:= "November"
case "12": mMonth:= "December";

OrigDate := CDate(ToNumber({Command.Date}[1 to 4]), ToNumber({Command.Date}[5 to 6]), ToNumber({Command.Date}[7 to 8]));
StartDay := ToNumber({Command.Date}[7 to 8]);
EndDay := Mid(ToText(DateSerial(Year(OrigDate), Month(OrigDate) +1, 1-1)), 4, 2);

mMonth + " " + ToText(StartDay, "#") + ", " + yYear + " to " + mMonth + " " + EndDay + ", " + yYear

これは機能しますが、保守性と優れた/クリーンなコーディング手法の精神で、可能であればこの機能を簡素化したいと思います。

私はCrystalでレポートを書くのは比較的新しいので、「車輪を再発明」していないことを望んでいます。

4

2 に答える 2

0

これを試して：

local numbervar year := tonumber(left({Command.Date},4));
local numbervar month:= tonumber(mid({Command.Date},5,2));
local numbervar day := tonumber(right({Command.Date},2));
local datevar stDate := date(year,month,day);
local datevar endDate := dateserial(year,month+1,day-1); //get last day of month

totext(stDate,"MMMM d, yyyy") + " to " + totext(endDate,"MMMM d, yyyy")
于 2012-10-30T18:40:06.167 に答える
0

ドライヤーソリューション？

カスタム関数を作成します。

// YYYYMMDD()
// Convert a value in 'YYYYMMDD' to a Date
Function (Stringvar value)

    Date( ToNumber(value[1 to 4]), ToNumber(value[5 to 6]), ToNumber(value[7 to 8]) )

開始日の式を作成します。

//{@Starting Date}
YYYYMMDD( {Command.Date} )

終了日の式を作成します。

//{@Ending Date}
// find first day of current month, add a month, subtract a day, truncate time
Date( DateAdd("m", 1, Date( Year({@Starting Date}), Month({@Starting Date}), 1) ) - 1 )

両方の数式フィールドをテキストフィールドに埋め込み、必要に応じて各フィールドをフォーマットします（柔軟性が向上します）。

于 2012-10-30T21:17:13.580 に答える