| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1445 人关注过本帖
标题:请教,如何在日期时间格式里补零
取消只看楼主 加入收藏
imfirst
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2009-5-25
结帖率:0
收藏
已结贴  问题点数:20 回复次数:2 
请教,如何在日期时间格式里补零
如下面代码
*——使用当前日期生成进货编号前6位
LeftNo=SUBSTR(ALLTRIM(STR(YEAR(date()))),3);
        +ALLTRIM(STR(MONTH(date())));
        +ALLTRIM(STR(DAY(date())))
*——从“进货信息”中生成进货编号后4位
SELECT 进货信息
SET ORDER TO 进货编号
SET FILTER TO
SET FILTER TO TTOD(进货信息.进货时间)=DATE()
GO BOTTOM
IF 进货信息.进货编号==""
    RightNo="0000"
ELSE
    RightNo=Substr(进货信息.进货编号,7)

ENDIF
*——对后4位增1
RightNo=AutoAdd(RightNo)
*——完整编号
FullNo=LeftNo+RightNo

例如今天是6月1号,那leftNo会显示1061,如果我要是显示100601改怎么修改??
还有蓝色加粗的那句什么意思啊?
搜索更多相关主题的帖子: 时间 格式 
2010-06-01 09:32
imfirst
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2009-5-25
收藏
得分:0 
如果  RightNo=Substr(进货信息.进货编号,7),就会显示106101
如果  RightNo=Substr(进货信息.进货编号,6),就会显示1061001
如果  RightNo=Substr(进货信息.进货编号,5),就会显示10610001

不解??

还有如何修改leftno str函数中显示字符的长度 ?

2010-06-01 10:16
imfirst
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2009-5-25
收藏
得分:0 
感谢楼上的答疑!!!
2010-06-01 10:34
快速回复:请教,如何在日期时间格式里补零
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018065 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved