国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板： 鸡泽县| 达拉特旗| 牡丹江市| 白玉县| 福州市| 津南区| 英吉沙县| 安西县| 沅江市| 耿马| 安吉县| 襄樊市| 万宁市| 西青区| 新竹市| 定州市| 青铜峡市| 北京市| 古田县| 正阳县| 德钦县| 长葛市| 白山市| 安国市| 婺源县| 巨野县| 大新县| 毕节市| 乌拉特后旗| 巴彦淖尔市| 宝鸡市| 新和县| 鹤山市| 五家渠市| 曲周县| 金门县| 女性| 平果县| 拜城县| 景洪市| 绥德县|