首页 新闻 论坛 群组 Blog 文档 下载 读书 Tag 网摘 搜索 .NET Java 游戏 视频 人才 外包 培训 数据库 书店 程序员
中国软件网
欢迎您:游客 | 登录 注册 帮助
    • 有没有方法计算某月某日属于今年的第几周？
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-17 14:35:08 楼主
    有没有方法计算某月某日属于今年的第几周？
    请给个函数！
    20  修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-17 14:40:511楼 得分:0
    没有直接的函数吧。
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-17 15:02:112楼 得分:0
    Private Sub Form_Load()
        Dim dateStart  As Date
        Dim d As Long
        Dim w As Long
        dateStart = #1/1/2008#
        d = CDate(Now) - dateStart
        Debug.Print d
        w = Int((d + 6) / 7)
        MsgBox "当前是第" & CStr(w) & "周。"

    End Sub
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-17 15:06:383楼 得分:0
    前二天才回复一过个
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-17 15:10:044楼 得分:0
    Dim d As Date, n As Long
    d = Date
    n = DateDiff("ww", DateSerial(Year(d), 1, 1), d) + 1
    Print n
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-18 00:34:165楼 得分:0
    谢谢
    修改 删除 举报 引用 回复
    网站简介－广告服务－网站地图－帮助－联系方式－诚聘英才－English－ 问题报告
    北京创新乐知广告有限公司 版权所有 京 ICP 证 070598 号
    世纪乐知(北京)网络技术有限公司 提供技术支持
    Copyright © 2000-2008, CSDN.NET, All Rights Reserved