请教，如何在日期时间格式里补零 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 请教，如何在日期时间格式里补零

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1445 人关注过本帖

标题：请教，如何在日期时间格式里补零

只看楼主加入收藏

imfirst

等　级：新手上路
帖　子：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

等　级：职业侠客
帖　子：398
专家分：383
注　册：2010-1-6

第 2 楼

得分:10

蓝色那部分说明你的进货编号长度为7个字符至于leftno你修改一下str函数中显示字符的长度

2010-06-01 09:51

茵梦湖

等　级：贵宾
威　望：31
帖　子：545
专家分：2180
注　册：2009-4-25

第 3 楼

得分: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

等　级：新手上路
帖　子：8
专家分：0
注　册：2009-5-25

第 4 楼

得分:0

如果  RightNo=Substr(进货信息.进货编号,7)，就会显示106101
如果  RightNo=Substr(进货信息.进货编号,6)，就会显示1061001
如果  RightNo=Substr(进货信息.进货编号,5)，就会显示10610001

不解？？

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

2010-06-01 10:16