| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1445 人关注过本帖
标题:请教,如何在日期时间格式里补零
只看楼主 加入收藏
imfirst
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2009-5-25
结帖率:0
收藏
已结贴  问题点数:20 回复次数:5 
请教,如何在日期时间格式里补零
如下面代码
*——使用当前日期生成进货编号前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
pmc1234
Rank: 5Rank: 5
等 级:职业侠客
帖 子:398
专家分:383
注 册:2010-1-6
收藏
得分:10 
蓝色 那部分说明 你的进货编号 长度为7个字符  至于leftno你修改一下str函数中显示字符的长度
2010-06-01 09:51
茵梦湖
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:31
帖 子:545
专家分:2180
注 册:2009-4-25
收藏
得分:10 
以下是引用imfirst在2010-6-1 09:32:52的发言:

如下面代码
*——使用当前日期生成进货编号前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改怎么修改??
还有蓝色加粗的那句什么意思啊?

leftno改为如下即可:
leftno=subs(dtos(date()),3)


蓝色部分是指 取字符串第7位(含)后面的部分, 例:
? subs("106010123qwer",7)  && 显示 123qwer


2010-06-01 10:07
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
茵梦湖
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:31
帖 子:545
专家分:2180
注 册:2009-4-25
收藏
得分:0 

...............


[ 本帖最后由 茵梦湖 于 2010-6-1 10:35 编辑 ]
2010-06-01 10:21
imfirst
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2009-5-25
收藏
得分:0 
感谢楼上的答疑!!!
2010-06-01 10:34
快速回复:请教,如何在日期时间格式里补零
数据加载中...
 
   



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

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