麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 學(xué)院 > 開發(fā)設(shè)計 > 正文

VisualBasic實現(xiàn)某一天的下/上一個星期幾是那一天

2019-11-18 17:31:37
字體：大 中 小
供稿：網(wǎng)友
參數(shù):您相信嗎？這個模組的寫法比用任何其他的方法快幾十倍！參數(shù)如下：
1：以那一天為基準(zhǔn)日？
2：(Optional)要找的是星期幾？若不指定，預(yù)設(shè)值為星期六
3：(Optional)要往前(過去)找或往后(未來)找？
若不指定，預(yù)設(shè)值為往后(未來)找


程序碼
PublicFunctionSpecificWeekday(ByValDAsDate,OptionalByValWhatDayAsVbDayOfWeek=vbSaturday,OptionalGetNextAsBoolean=True)AsDate
SpecificWeekday=(((D-WhatDay GetNext)/7)-GetNext)*7 WhatDay
EndFunction
或許您想知道程序為什么這樣寫？

您知道嗎？在VB中，其所有日期函數(shù)的基準(zhǔn)日(第0天)是1899年12月30日(星期六)，第一天就是1899年12月31日(星期日)，所以VB的WeekDay函數(shù)算法其實就是(Date-1)Mod7 1。

返回值
日期

實例:
我想知道以下日子各是那一天？
上個星期一：SpecificWeekday(Now,vbMonday,False)
下個星期六：SpecificWeekday(Now)
2000年9月9日的下一個星期五：SpecificWeekday("09/09/2000",vbFriday)->

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 欧美一级成人一区二区三区 | 草草影院地址 | 一区二区三区在线观看国产 | 97青青 | 国产亚洲欧美在线视频 | 黄色毛片前黄 | 久久艹精品视频 | 成人小视频免费在线观看 | 欧美老逼 | 国产一区二区三区四区波多野结衣 | 曰韩黄色片 | 国产69精品久久久久9999不卡免费 | 久久美女免费视频 | 国产亚洲综合一区二区 | 视频在线91| 中文字幕在线观看精品 | 成人免费一区二区三区 | 99精品国产一区二区三区 | 在线天堂中文字幕 | 国产免费福利视频 | 欧美三级欧美成人高清www | 精品久久久久久综合日本 | 红桃一区 | 综合在线视频 | 国产精品成人免费一区久久羞羞 | 宅男视频在线观看免费 | 国产午夜精品理论片a级探花 | bt 自拍 另类 综合 欧美 | japanesexxxx24videofree | 黄色男女视频 | 国产午夜免费福利 | 中国av免费在线观看 | 久久精品一区二区三区四区五区 | 国产精品午夜未成人免费观看 | 免费在线中文字幕 | 国产瑟瑟视频 | 成年人视频在线免费播放 | 亚洲网站在线播放 | 精品小视频| 91精品国产一区二区在线观看 | 久久成人精品视频 |