set yy to (year of (current date))

set mm to (month of (current date)) as number
if mm = 1 then
	set mm2 to "�P"
end if
if mm = 2 then
	set mm2 to "�Q"
end if
if mm = 3 then
	set mm2 to "�R"
end if
if mm = 4 then
	set mm2 to "�S"
end if
if mm = 5 then
	set mm2 to "�T"
end if
if mm = 6 then
	set mm2 to "�U"
end if
if mm = 7 then
	set mm2 to "�V"
end if
if mm = 8 then
	set mm2 to "�W"
end if
if mm = 9 then
	set mm2 to "�X"
end if
if mm = 10 then
	set mm2 to "10"
end if
if mm = 11 then
	set mm2 to "11"
end if
if mm = 12 then
	set mm2 to "12"
end if

set dd to day of (current date)
if dd = 1 then
	set dd2 to "�P"
end if
if dd = 2 then
	set dd2 to "�Q"
end if
if dd = 3 then
	set dd2 to "�R"
end if
if dd = 4 then
	set dd2 to "�S"
end if
if dd = 5 then
	set dd2 to "�T"
end if
if dd = 6 then
	set dd2 to "�U"
end if
if dd = 7 then
	set dd2 to "�V"
end if
if dd = 8 then
	set dd2 to "�W"
end if
if dd = 9 then
	set dd2 to "�X"
end if
if dd = 10 then
	set dd2 to "10"
end if
if dd = 11 then
	set dd2 to "11"
end if
if dd = 12 then
	set dd2 to "12"
end if
if dd = 13 then
	set dd2 to "13"
end if
if dd = 14 then
	set dd2 to "14"
end if
if dd = 15 then
	set dd2 to "15"
end if
if dd = 16 then
	set dd2 to "16"
end if
if dd = 17 then
	set dd2 to "17"
end if
if dd = 18 then
	set dd2 to "18"
end if
if dd = 19 then
	set dd2 to "19"
end if
if dd = 20 then
	set dd2 to "20"
end if
if dd = 21 then
	set dd2 to "21"
end if
if dd = 22 then
	set dd2 to "22"
end if
if dd = 23 then
	set dd2 to "23"
end if
if dd = 24 then
	set dd2 to "24"
end if
if dd = 25 then
	set dd2 to "25"
end if
if dd = 26 then
	set dd2 to "26"
end if
if dd = 27 then
	set dd2 to "27"
end if
if dd = 28 then
	set dd2 to "28"
end if
if dd = 29 then
	set dd2 to "29"
end if
if dd = 30 then
	set dd2 to "30"
end if
if dd = 31 then
	set dd2 to "31"
end if


set theDate to (yy & "�N" & mm2 & "��" & dd2 & "�����B") as string

set the clipboard to theDate
tell application "System Events"
	key down {command}
	keystroke "v"
	key up {command}
end tell