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? ... =%23Mihail вот к примеру в древнем скрипте Саважа