Visual Foxpro(VFP) V9.0 按系统时间取前6位数 取数遇单数前面不加0...
发布网友
发布时间:2024-10-01 16:36
我来回答
共1个回答
热心网友
时间:2024-11-13 19:34
*——使用当前日期生成进货编号前6位
LeftNo=SUBSTR(ALLTRIM(STR(YEAR(date()))),3);
+ALLTRIM(STR(MONTH(date())));
+ALLTRIM(STR(DAY(date())))
你是指这里月份或者日期是个位数, 只有一位? 比如今天, 返回15112?
本来你这代码就需要改进,很简单就搞定:
SUBSTR(DTOS(DATE()),3)
返回151102
当然,如果按照你的思路, 只要多加一个padl()函数即可, 他可以补足位数
LeftNo=SUBSTR(ALLTRIM(STR(YEAR(date()))),3);
+padl(ALLTRIM(STR(MONTH(date()))),2,'0');
+padl(ALLTRIM(STR(DAY(date()))),2,'0')