print hour
Posted: 2008-05-22 14:04:35
need a macro that prints date and hour plz 
Got one, but dont work
Got one, but dont work
motxu wrote:need a macro that prints date and hour plz
Got one, but dont work
This is script.
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
EndIf
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
EndIf
Next
Ret = T + " @ " + D
RETURN Ret
end sub
And this is some example:
Code: Select all
var test()
VAR Time
Time = MakeTime()
UO.Print(Time)
end sub
I hope you understand. Just one thing, all scripts must be in same script file.