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

xuanniao110

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

afan

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[13] = ['', 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

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

xuanniao110

回复 2# afan


谢谢大版主    非常感谢

xuanniao110

回复 3# h20040606


兄弟   谢谢你

kk_lee69

回复 5# xuanniao110

有高手出手了 呵呵