Here we go ...
_command void date () name_info (','VSARG2_MARK|VSARG2_TEXT_BOX|VSARG2_REQUIRES_EDITORCTL)
{
_insert_text (_date ('L'));
}
// short date e.g. '070208'
_command void sdate () name_info (','VSARG2_MARK|VSARG2_TEXT_BOX|VSARG2_REQUIRES_EDITORCTL)
{
_str month, day, year;
parse _date() with month'/'day'/'year;
if (length(month)<2) month='0'month;
if (length(day)<2) day='0'day;
if (length(year)>2) year=substr(year,3);
_insert_text ( year month day );
}
Have fun,
HS2