Yoko

Code: Select all

sub Date(Number,Divider)
var Ser=STR(Number),D=''
if Len(Ser)==5 then
Ser='0'+Ser
end if
D=right(Ser,2)+Divider+Mid(Ser,2,2)+Divider+Left(Ser,2)
return D
end sub

sub Time(Number,Divider)
var i,T=''
var Ser=STR(Number)
for i=0 to Len(Ser)-2 step 2
T=T+Mid(Ser,i,2)+Divider
next
T=left(T,Len(Ser)+2)
return T
end sub

Code: Select all

sub MakeTime() 
	var d,t,ret,i 
	ret=str(uo.Time()) 
	t="" 
	for i=0 to Len(ret) 
		t=ret[Len(ret)-i]+t 
		if (i==2) or (i==4) then 
			t=":"+t 
		end if 
	next 
	ret=str(uo.Date()) 
	d="" 
	for i=0 to Len(ret) 
		d=ret[Len(ret)-i] + d 
		if (i==2) or (i==4) then 
			d="."+d 
		end if 
	next 
	ret=t+" @ "+d 
	return ret 
end sub