Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

developer forums

The 20 Line Challenge / Pay Counter

Author

Message

Rapidrory

Years of Service

User Offline

Joined: 21st Aug 2009

Location:

Posted: 3rd Nov 2012 00:03

Link

This is just a fun little bit of code I wrote while I was 'working' at work today

You put in the time you started work, and your hourly pay rate, and it'll count up how much you've earned so far that day. (it assumes you're still at work so if you're running this in the evening it won't actually give any useful data)

+ Code Snippet

set window on

hr#=10.00 `Amount you get paid an hour
starttime$="09:00" `Time at which you started work (Hour:Minute)

mr#=hr#/60
sr#=mr#/60
starthour#=val(left$(starttime$,2))
startmin#=val(right$(starttime$,2))
do
cls 0
time$=get time$()
hour#=val(left$(time$,2))
minute#=val(mid$(time$,4)+mid$(time$,5))
second#=val(right$(time$,2))
p#=int(((hour#-starthour#)*hr#+(minute#-startmin#)*mr#+second#*sr#)*100)
print "£";p#/100
loop

Profile PM

Server time is: 2024-04-23 19:19:58
Your offset time is: 2024-04-23 19:19:58