国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學(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ā)表
主站蜘蛛池模板： 大关县| 沙坪坝区| 洪雅县| 长丰县| 诸城市| 北流市| 青田县| 成武县| 河津市| 宁武县| 周至县| 武义县| 涡阳县| 崇州市| 普格县| 西华县| 云浮市| 福建省| 托克逊县| 密山市| 禄丰县| 灵川县| 墨竹工卡县| 曲水县| 福州市| 鹰潭市| 瑞丽市| 彰武县| 鹤山市| 中江县| 沁阳市| 大悟县| 上杭县| 鄂托克前旗| 漳浦县| 丁青县| 靖远县| 武定县| 凌源市| 迁西县| 九江市|