$Actual = _DateAdd( 'd',29, _NowCalcDate())
$split = StringSplit($Actual, '/')
$calculed = $split[3] & '/' & _GetMonth($split[2]) & '/' & $split[1]
GUICtrlCreateLabel ("" & $calculed, 0,130,150,17)
Func _GetMonth($nMonth)
Local $aMonth = StringSplit('01,02,03,04,05,06,07,08,09,10,11,12', ',')
Return $aMonth[$nMonth]
EndFunc
Try it...