Yoko
http://forum.yoko.com.ua/

Unhandled exception in parser (!)
http://forum.yoko.com.ua/viewtopic.php?f=3&t=12990		 Page 8 of 8
Author:  Mirage [ 2014-12-21 11:08:28 ]
Post subject:  Re: Unhandled exception in parser (!)
Time() процедуру покажи.
Author:  lamersz [ 2014-12-21 19:51:42 ]
Post subject:  Re: Unhandled exception in parser (!)
Mirage wrote:
Time() процедуру покажи.

Code:
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
Page 8 of 8 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/