1. racecar pool calculator patch
- Posted by wolfgang fritz <wolfritz at KING.IGS.NET>
Oct 04, 1998
-
Last edited Oct 05, 1998
if anyone cares to...
procedure now()
sequence d,m,y,n
n=date() d=sprintf("%d",n[3]) m=sprintf("%d",n[2])
if n[1] > 99 then n[1] = n[1]-100 end if --Y2K compliance, one new line !
y=sprintf("%02d",n[1]) --and one modified !
line="calculated /" & m & '/' & d & '/' & y & ": "
end procedure
-------------------------------------------------------
..with a little web-page at http://www.king.igs.net/~wolfritz
