Замена даты времени в xml фаиле с периодичностью 6 секунд

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