#include <Array.au3>
#include <Date.au3>


Local $dVDaten = " 12 1224 3 0120 2 0919 "

	  $aVDaten =	_Verfalldaten($dVDaten)

MsgBox(0, " $aVDaten " , $aVDaten)

Func _Verfalldaten($dVDaten)

Local $StringSplit = StringSplit($dVDaten, " ")
	  _ArrayColInsert($StringSplit, 1)
	  _ArrayColInsert($StringSplit, 1)

For $i =  UBound($StringSplit)-1 to 1 step -1

   If StringLen($StringSplit[$i][0]) = 4 then
      $StringSplit[$i-1][1] = number(StringLeft($StringSplit[$i][0], 2))
      $StringSplit[$i-1][2] = number(StringRight($StringSplit[$i][0], 2)) + 2000
Local $iDays = _DateDaysInMonth( $StringSplit[$i-1][2], $StringSplit[$i-1][1])
      $StringSplit[$i-1][2] = String($StringSplit[$i-1][2]) & StringFormat('%02d', $StringSplit[$i-1][1]) & string($iDays) & "." & StringFormat('%02d', $StringSplit[$i-1][0])
	  _ArrayDelete($StringSplit, $i)
   EndIf

Next
    _ArrayColDelete($StringSplit, 0)
    _ArrayColDelete($StringSplit, 0)

    _ArrayDisplay($StringSplit)

$aVDaten = _ArrayToString($StringSplit, "/" ,  2, UBound($StringSplit)-2)

Return $aVDaten
EndFunc