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