Time, Date

[kuviCk]

Есть скриптик старый на Time и Date by Michail

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

И все бы ничего, но он не работает со временем в котором перый знак единичный тоесть дата после полуночи вида X:XX:XX. Скрипт начинает ломать главый скрипт. Может кто поможет решить данный косяк?

[Mirage]

Тут скорее математика нужна, а я ее не учил лет 8.
Я не нашел на форуме примера применения этого скрипта (ссылку скинь - посмотрю). Все скрипты с таймером которые есть у меня работают вот через такую процедуру

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 

[Exist]

http://forum.yoko.com.ua/viewtopic.php?f=17&t=16066&hilit=%23Mihail вот к примеру в древнем скрипте Саважа