Function now_date()
	Dim today, nowtime
	Dim syy, smm, sdd, shh, smn, sec
	
	today = date()  :  nowtime = time()
	syy = year(today) : smm = month(today)  : sdd = day(today)
	shh = hour(nowtime) : smn = minute(nowtime) : sec = second(nowtime)
	if len(smm)=1 then smm="0"&smm end if : if len(shh)=1 then shh="0"&shh end if
	if len(sdd)=1 then sdd="0"&sdd end if   : if len(smn)=1 then smn="0"&smn end if
	if len(sec)=1 then sec="0"&sec end if
	
	now_date = (syy&smm&sdd) & (shh&smn)
End Function 

+ Recent posts