TERMINAL,
Код:
$iLastDay = _Last_Day_Month()
MsgBox(64, @error, $iLastDay)
Func _Last_Day_Month($i_Month = @MON, $i_Year = @YEAR)
Local $a_LastDay[13] = [12, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31], $i_LastDay
$i_Month = Int($i_Month)
$i_Year = Int($i_Year)
If $i_Month < 1 Or $i_Month > 12 Or $i_Year < 0 Then Return SetError(1, 0, -1)
$i_LastDay = $a_LastDay[$i_Month]
If $i_Month = 2 Then
If Not Mod($i_Year, 4) Then
$i_LastDay += 1
EndIf
EndIf
Return SetError(0, 0, $i_LastDay)
EndFunc ;==>_Last_Day_Month
|
