You know when your contract is dull when...

[n5gooner]

DP,

- write an application that every second displays how much you have earned so far during the day instead of a clock. That's what I have done using in MS Access. Killed a couple of hours and now instead of counting the seconds I can count the pennies.

So Ms. Loos, are you going to distribute that then can we all have a copy?

[ratewhore]

You're right - there is loads more...

1) Collect all the empty loo rolls from the toilet and build a model. Present it to the boss for his desk.
2) Come to work wearing odd coloured socks. The permies will love you for it.
3) Open a book on what the dish of the day in the canteen will be.

Oh I could go on...

[Rebecca Loos]

I can't distribute it here:

You may post new threads
You may post replies
You may not post attachments
You may edit your posts

[Epith]

There is always lunchtime, ah beer

[Jkettle]

Penny Counting

Rebecca Loos

Can you email me the Penny Counting App you have? I'm not a sado developer so I can't write my own.

[Joe Black]

I did a similar thing years ago , don't know if I still have it but was done in VB and placed a small odometer like counter just above the task-bar.

Great thing about it though was that you could add in preset hourly rates and give them a name. If you felt bad about what you were earning you could have a quick look at how slow it was for a burger-flipper. If someone told you you were earning too much then you could switch it to the Bill Gates setting to shut them up.

[n5gooner]

you start posting crap to a crap bulletin board and you have to sit opposite from the droopiest t!ts alive and the highlight of the day is seeing of it is cold or not

[n5gooner]

I can't distribute it here:

You may post new threads
You may post replies
You may not post attachments
You may edit your posts

post a link....

[Rebecca Loos]

well it's a big mdb file (MS Access app) but I am sure it is feasible as a VB app - problem is I don't know VB. However I am reliably informed that it is very similar to Access (or rather Access is similar to VB - not sure which came first).

Anyway, create a modal form with a procedure that goes:

Private Sub cmdRefresh_Click()
On Error GoTo Err_cmdRefresh_Click


Rem DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Dim howmuch As Single
Dim starttime As Date
Dim todaysdate As String
Dim dailyrate As Single

dailyrate = Me!txtDailyRate

Me!txtTime = Now()
Me.Refresh

todaysdate = Format(Now(), "dd/mm/yyyy")

starttime = todaysdate & " 08:30:00"

howmuch = DateDiff("s", starttime, Now())

If Time < "08:30:00" Then
how much = 0
End If
If Time > "12:30:00" Then
howmuch = DateDiff("s", starttime, todaysdate & " 12:30:00")
End If
If Time > "13:30:00" Then
starttime = todaysdate & " 13:30:00"
howmuch = howmuch + DateDiff("s", starttime, Now())
End If
If Time > "17:30:00" Then
howmuch = 8 * 60 * 60
End If

howmuch = (dailyrate / (8 * 60 * 60)) * howmuch

Me!txtMoney = howmuch
Me.Refresh

Exit_cmdRefresh_Click:
Exit Sub

Err_cmdRefresh_Click:
MsgBox Err.Description
Resume Exit_cmdRefresh_Click

End Sub

txtTime is a box on the form, so is txtMoney, and so is txtDailyRate, they are self-explanatory, only txtDailyRate is editable by the user.

Now the form should have a Timer event, make it call the aforementioned function on the onTimer event, make the timer interval 1 seconds (I think it is measured in milliseconds, so make the interval 1000), et voilà as they say as another car is put ablaze in Aulnay-sous-Bois

[Rebecca Loos]

oh I forgot in the app above, the assumption is that you do a 8:30 to 5:30 day with a 1 hour break for lunch