在vfp9.0里面,字符串"Oct-05-13"怎么转换成字符串"20131005" - VFP论坛

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

编程论坛 → 数据库技术 → 『 VFP论坛』 → 在vfp9.0里面,字符串"Oct-05-13"怎么转换成字符串"20131005"

我的收件箱(0)

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

共有 521 人关注过本帖

标题：在vfp9.0里面,字符串"Oct-05-13"怎么转换成字符串"20131005" ...

只看楼主加入收藏

dhbdd

等　级：新手上路
帖　子：27
专家分：0
注　册：2013-10-18
结帖率：87.5%

楼主

已结贴√ 问题点数：10 回复次数：3

在vfp9.0里面,字符串"Oct-05-13"怎么转换成字符串"20131005"

搜索更多相关主题的帖子: 字符串　

2013-10-30 22:39

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9853
专家分：27255
注　册：2012-2-5

第 2 楼

得分:10

程序代码：

CLEAR
lcStr=[Oct-05-13]
lcStr1=GETWORDNUM(lcStr,1,[-])
lcStr2=GETWORDNUM(lcStr,2,[-])
lcStr3=[20]+GETWORDNUM(lcStr,3,[-])
FOR I=1 TO 12
    IF lcStr1$CMONTH(DATE(2013,I,1))
       NMONTH=I
    ENDIF
ENDFOR
?lcStr3+TRANSFORM(nmonth)+lcStr2

收到的鲜花

tlliqi 于 2013-10-31 20:26 送鲜花 10朵附言：可行

坚守VFP最后的阵地

2013-10-31 19:00

tlliqi

等　级：贵宾
威　望：204
帖　子：15453
专家分：65956
注　册：2006-4-27

第 3 楼

得分:0

以下是引用sdta在2013-10-31 19:00:14的发言：

CLEAR
lcStr=[Oct-05-13]
lcStr1=GETWORDNUM(lcStr,1,[-])
lcStr2=GETWORDNUM(lcStr,2,[-])
lcStr3=[20]+GETWORDNUM(lcStr,3,[-])
FOR I=1 TO 12
    IF lcStr1$CMONTH(DATE(2013,I,1))
       NMONTH=I
    ENDIF
ENDFOR
?lcStr3+TRANSFORM(nmonth)+lcStr2

可行

2013-10-31 20:26

qjbzjp

来　自：尧的故乡
等　级：贵宾
威　望：48
帖　子：1914
专家分：4397
注　册：2007-3-14

第 4 楼

得分:0

SET DATE mdy
?changdate("Oct-05-13")

FUNCTION changdate   &&自定义转换函数
PARAMETERS n
    FOR I=1 TO 12
        IF LEFT(n,AT("-",n)-1)$CMONTH(DATE(2013,I,1))
           EXIT
        ENDIF
    NEXT
    RETURN DTOS(CTOD(TRANSFORM(i)+RIGHT(n,6)))
ENDFUNC

相互学习，互相交流，共同提高。

2013-11-01 16:11

快速回复：在vfp9.0里面,字符串"Oct-05-13"怎么转换成字符串"20131005" ...