60-NewDocument.scpt

on seescriptsettings()
	return {keyboardShortcut:"$@o", shortDisplayName:"New Document", displayName:"New Document with Date"}
end seescriptsettings

to secsToHMS(secs)
	tell (1000000 + secs div hours * 10000 + secs mod hours div minutes * 100 + secs mod minutes) as string ¬
		to return text 2 thru 3 & ":" & text 4 thru 5 & ":" & text 6 thru 7
end secsToHMS

set {year:y, month:m, day:d, time:t} to current date
set theTime to secsToHMS(t as integer)

tell application "SubEthaEdit"
	make new document with properties {name:(d as text) & "." & (m as number) & "." & y & " " & theTime}
	
end tell