Unhandled exception in parser (!)

[Mirage]

Time() процедуру покажи.

[lamersz]

Time() процедуру покажи.

Code: Select all

sub Time()
   var Date,nTime,uTime,i
   uTime=str(uo.Time())
   nTime=''
   for i=0 to Len(uTime)
      nTime=uTime[Len(uTime)-i]+nTime
      if (i==2) or (i==4) then
         nTime=':'+nTime
      end if
   next
   uTime=str(uo.Date())
   Date=''
   for i=0 to Len(uTime)
      Date=uTime[Len(uTime)-i]+Date
      if (i==2) or (i==4) then
         Date='.'+Date
      end if
   next
   uTime=nTime+' @ '+Date
   return uTime
end sub