AppleScript Date Formating

on zero_pad(value, string_length)
	set string_zeroes to ""
	set digits_to_pad to string_length - (length of (value as string))
	if digits_to_pad > 0 then
		repeat digits_to_pad times
			set string_zeroes to string_zeroes & "0" as string
		end repeat
	end if
	set padded_value to string_zeroes & value as string
	return padded_value
end zero_pad

on date_formated(date_value, separator)
	set currentDate to date_value as string
	set currentDate to date currentDate
	set result to zero_pad(day of currentDate as integer, 2)
	set result to result & separator
	set result to result & zero_pad(month of currentDate as integer, 2)
	set result to result & separator
	set result to result & zero_pad(year of currentDate as integer, 2)
	return result
end date_formated


set today to (current date)
set yesterday to short date string of ((current date) - days)

set currentDateString to date_formated(today, ".")
set yesterdayDateString to date_formated(yesterday, ".")