xuanniao110 发表于 2016-11-10 19:52:19

[已解决]怎么能查出当前月的最大日期

本帖最后由 xuanniao110 于 2016-11-11 09:04 编辑

怎么能查出当前月的最大日期呢   比如这个月是11月    而在这个月中最大日期为30号    怎么来获取到这个30号呢   因为我要写个时间进度    也就是    当前10号/30号   现在就是这个30号不知道怎么获取有知道的朋友给个例子好么   谢谢

afan 发表于 2016-11-11 00:31:22

MsgBox(0, '当年当月', _GetMDay())
MsgBox(0, '当年二月', _GetMDay(2))
MsgBox(0, '15年二月', _GetMDay(2, 2015))

Func _GetMDay($iMON = @MON, $iYEAR = @YEAR)
        ;$iMON - 月份(默认当月), $iYEAR - 年份(默认当年)
        If $iMON < 1 Or $iMON > 12 Or $iYEAR < 1 Then Return SetError(1)
        Local $aMon = ['', 31, 0, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]
        If $iMON <> 2 Then Return $aMon[$iMON]
        If Mod($iYEAR, 4) Then Return 28
        If Not Mod($iYEAR, 100) And Mod($iYEAR, 400) Then Return 28
        Return 29
EndFunc   ;==>_GetMDay

h20040606 发表于 2016-11-11 07:44:17

#include <date.au3>
MsgBox(0,"",StringMid(_DateAdd('D',-StringMid(_NowCalcDate(),9,2),_dateadd('M',1,_NowCalc())),9,2))

xuanniao110 发表于 2016-11-11 09:04:15

回复 2# afan


谢谢大版主    非常感谢

xuanniao110 发表于 2016-11-11 09:04:35

回复 3# h20040606


兄弟   谢谢你

kk_lee69 发表于 2016-11-11 22:58:30

回复 5# xuanniao110

有高手出手了 呵呵
页: [1]
查看完整版本: [已解决]怎么能查出当前月的最大日期