add month/year to drop-down list box

Posted 2020-09-17 KIKI_FAN

add month/year to drop-down list box

drop-down list添加日期

/* Add Month/Year to Card Expriry Month*/

Local Field &fld = GetField();

Local date &curDate = %Date;

Local date &endDate = AddToDate(&curDate, 5, 0, 0);

Local string &monYear;

&fld.ClearDropDownList();

 

/*

Local number &num = 1;

While &curDate <= &endDate

 

  Local string &i = NumberToDisplayString("%", &num);

  &monYear = DateTimeToLocalizedString(&curDate, "MMM/y");

  &fld.AddDropDownItem(&i, Rept(Char(9), &num) | &monYear);

  &curDate = AddToDate(&curDate, 0, 1, 0);

  &num = &num + 1;

End-While;

*/

 

 

Local array of string &aryS_MthYr = CreateArrayRept("", 0);

While &curDate <= &endDate

  /*y一定要小写，大写就不是"2017"这样的格式了，暂时不知原因，求解*/

  &monYear = DateTimeToLocalizedString(&curDate, "MMM/y");

  &aryS_MthYr.Push(&monYear);

  &curDate = AddToDate(&curDate, 0, 1, 0);

End-While;

 

Local array of number &aryNbr_TabNumber = CreateArrayRept(0, 0);

Local number &nbrMaxValue = &aryS_MthYr.Len;

Local number &n;

For &n = 1 To &aryS_MthYr.Len

  &aryNbr_TabNumber.Push(&nbrMaxValue);

  Local string &i = NumberToDisplayString("%", &n);

  &fld.AddDropDownItem(&i, Rept(Char(9), &aryNbr_TabNumber [&n]) | &aryS_MthYr [&n]);

  &nbrMaxValue = &nbrMaxValue - 1;

End-For;