DateEx("2008/08/27 23:59:25",40)を表示
DateEx("2008/08/27",40)を表示

●DateEx(str,n)
	dateとは配列=区切(str," ")
	もし(date[1]="")ならば、date[1]=今
	配列結合(UNIX2date(date2UNIX(date,0)+n)," ")
●date2UNIX(date,tzd)
	戻(日数差("1970/1/1",date[0])*(60*60*24)+秒差("0:0:0",date[1])+tzd)
●UNIX2date(unix)
	tmpとは配列
	dayとは整数=unix/86400%86400
	unix=unix-day*86400
	tmp[0]=日付加算("1970/1/1","//{day}")
	tmp[1]="{ゼロ埋め(unix/3600%24,2)}:{ゼロ埋め(unix/60%60,2)}:{ゼロ埋め(unix%60,2)}"
	tmpで戻る