[英]Elegant String to Date (Range) Conversion in Crystal Reports
在我的数据库中,我有一个类型为varchar(8)的日期字段,用于以YYYYMMDD格式存储日期值。 我很难创建一个简单的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编写报告还比较陌生,所以我希望自己还没有“重新发明轮子”。
尝试这个:
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")
DRYer解决方案?
创建一个自定义函数:
// 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 )
将两个公式字段都嵌入一个文本字段中,并根据需要设置每个字段的格式(提高灵活性)。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.