您的位置：程序门 -> vb -> 基础类



如何通过星期和周期得到对应的日期（或者能否做周期的加减)


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


如何通过星期和周期得到对应的日期（或者能否做周期的加减)[已结贴,结贴人:raulvim]
发表于：2007-09-22 12:29:07 楼主
如题,
例如
dim   a   as   string
a= "07387 "   表示07年38周星期六,如何得到它对应的日期b

或者例如
a= "0653 ",如何得到它的下一周是 "0701 "   还是 "0654 "
反之,知道某一周期,如何计算它的上一周期.

谢谢
发表于：2007-09-25 09:08:501楼 得分:20
dim   nowdate   as   string
        dim   n   as   integer
        dim   olddate   as   integer
        olddate   =   datepart（ "w ",   "2007/01/01 ",   vbsunday)
        n   =   （39   -   1)   *   7   +   datepart（ "w ",   date,   vbsunday)   -   olddate
        nowdate   =   dateadd（ "d ",   n,   "2007/01/01 ")

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击