Func _PlusTime($Year, $Month,$Day, $Hour, $Minute, $Secund) ; увеличивае время на 6 секунд и возвращает массив на 6 элементов (год, месяц, день, час, минуты, секунды)
Dim $ArrayData[6]
If $Secund + 6 >= 60 Then
$Secund = $Secund + 6 - 60
$Minute = $Minute + 1
ElseIf $Secund < 60 Then
$Secund = $Secund + 6
EndIf
If $Minute >= 60 Then
$Minute = $Minute - 60
$Hour = $Hour + 1
EndIf
If $Hour >= 24 Then
$Hour = $Hour - 24
$Day = $Day + 1
EndIf
If $Month = 1 Or $Month = 3 Or $Month = 5 Or $Month = 7 Or $Month = 8 Or $Month = 10 Or $Month = 12 And $Day > 31 Then
$Day = $Day - 31
$Month = $Month+1
EndIf
If $Month = 4 Or $Month = 6 Or $Month = 9 Or $Month = 11 And $Day > 30 Then
$Day = $Day - 30
$Month = $Month + 1
EndIf
If $Month = 2 And IsInt ($Year/4) = 1 And $Day > 29 Then
$Day = $Day - 29
$Month = $Month + 1
ElseIf $Month = 2 And IsInt ($Year/4) = 0 And $Day > 28 Then
$Day = $Day - 28
$Month = $Month + 1
EndIf
If $Month > 12 Then
$Month = $Month - 12
$Year = $Year + 1
EndIf
$Secund = _two_digital ($Secund)
$Minute = _two_digital ($Minute)
$Hour = _two_digital ($Hour)
$Day = _two_digital ($Day)
$Month = _two_digital ($Month)
$ArrayData[0] = $Year
$ArrayData[1] = $Month
$ArrayData[2] = $Day
$ArrayData[3] = $Hour
$ArrayData[4] = $Minute
$ArrayData[5] = $Secund
;Return $Year & "-" & $Month & "-" & $Day & "T" & $Hour & ":" & $Minute & ":" & $Secund & "Z"
Return $ArrayData
EndFunc
Func _two_digital ($Parametr)
If StringLen ($Parametr) < 2 Then
$Parametr = 0 & $Parametr
EndIf
Return $Parametr
EndFunc