#cs ----------------------------------------------------------------------------

	AutoIt Version: 3.3.12.0
	Author:         kcvinu
	Build Date : 09-03-2015

	Script Function:		It will give a valid date as output if you give year month and date.
							Example DigitsToDate(2011,8,26,1) will give 26/08/2011
	Last parameter is flag
	; $flag 1 = dd-mm-yyyy
	; $flag 2 = mm-dd-yyyy
	; $flag 3 = yyyy-dd-mm
	; $flag 4 = yyyy-mm-dd

	Return Value
	If all parameters are correct then it will give you a date value as per flag
	This function will return -1 when you give month greater than 12 or month lesser than 1
	This function will return -1 when you give day greater than 31 or month lesser than 1
	This function will return -1 when you give year greater than 9999 or lesser than 1
	This function will return -2 when you give a leap year as year and month as february and day greater than 29
	This function will return -3 when you give day greater than 30 and months which not have more than 30 days


	Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

Func DigitsToDate($Year, $Month, $Day, $flag)

	Local $31Club[4] = [4, 6, 9, 11]
	For $i In $31Club
		If $i = $Month And $Day > 30 Then Return -3
	Next

	Local $LeapFlag
	If StringRight($Year, 2) = 00 Then
		If IsFloat($Year / 400) Then
			$LeapFlag = 0
		Else
			$LeapFlag = 1
		EndIf
	ElseIf StringRight($Year, 2) <> 00 Then
		If IsFloat(StringRight($Year, 2) / 4) Then
			$LeapFlag = 0
		Else
			$LeapFlag = 1
		EndIf
	EndIf


	If $LeapFlag = 1 And $Month = 2 And $Day > 29 Then Return -2


	If StringLen($Year) <> 4 Then Return -1
	If StringLen($Month) > 2 Then Return -1
	If StringLen($Day) > 2 Then Return -1

	If $Year < 1 Then Return -1
	If $Month < 1 Or $Month > 12 Then Return -1
	If $Day < 1 Or $Day > 31 Then Return -1

	If $Month < 10 And StringLen($Month) = 1 Then $Month = 0 & $Month
	If $Day < 10 And StringLen($Day) = 1 Then $Day = 0 & $Day


	If $flag = 1 Then Return $Day & "/" & $Month & "/" & $Year
	If $flag = 2 Then Return $Month & "/" & $Day & "/" & $Year
	If $flag = 3 Then Return $Year & "/" & $Day & "/" & $Month
	If $flag = 4 Then Return $Year & "/" & $Month & "/" & $Day

EndFunc   ;==>DigitsToDate