Hi,
I am designing a project for my friend as I am just a week old baby to vb and want to implement what I've learnt so far.
She wants to be able to put start time, end time and lunch for each day and then calculate amount of hours worked. So far I have designed form and added code to calculate textbox inputs, (which works!).
However, I didn't think of this at beginning. Say I put .30 for lunch, when I get total hours worked the answer would be .70 as it's taking .30 away from 1. (Sounds obvious now!) I want it to calculate as minutes in an hour. Is there a way of telling the project half nine is 9.30 instead of having to input 9.50 ?
Any comments would be appreciated
-
Dim SunTotal As Variant
-
Dim MonTotal As Variant
-
Dim TuesTotal As Variant
-
Dim WedsTotal As Variant
-
Dim Thurstotal As Variant
-
Dim FriTotal As Variant
-
Dim SatTotal As Variant
-
-
Dim HoursTotal As Variant
-
-
Dim valsunend As Variant
-
Dim valmonend As Variant
-
Dim valtuesend As Variant
-
Dim valwedsend As Variant
-
Dim valthursend As Variant
-
Dim valfriend As Variant
-
Dim valsatend As Variant
-
-
Dim valsunstart As Variant
-
Dim valmonstart As Variant
-
Dim valtuesstart As Variant
-
Dim valwedsstart As Variant
-
Dim valthursstart As Variant
-
Dim valfristart As Variant
-
Dim valsatstart As Variant
-
-
Dim valsunlunch As Variant
-
Dim valmonlunch As Variant
-
Dim valtueslunch As Variant
-
Dim valwedslunch As Variant
-
Dim valthurslunch As Variant
-
Dim valfrilunch As Variant
-
Dim valsatlunch As Variant
-
-
Private Sub CmdCalculate_Click()
-
valsunend = Val(TxtSunEnd.Text)
-
valmonend = Val(TxtMonEnd.Text)
-
valtuesend = Val(TxtTuesEnd.Text)
-
valwedsend = Val(TxtWedsEnd.Text)
-
valthursend = Val(TxtThursEnd.Text)
-
valfriend = Val(TxtFriEnd.Text)
-
valsatend = Val(TxtSatEnd.Text)
-
-
valsunstart = Val(TxtSunStart.Text)
-
valmonstart = Val(TxtMonStart.Text)
-
valtuesstart = Val(TxtTuesStart.Text)
-
valwedsstart = Val(TxtWedsStart.Text)
-
valthursstart = Val(TxtThursStart.Text)
-
valfristart = Val(TxtFriStart.Text)
-
valsatstart = Val(TxtSatStart.Text)
-
-
valsunlunch = Val(TxtSunLunch.Text)
-
valmonlunch = Val(TxtMonLunch.Text)
-
valtueslunch = Val(TxtTuesLunch.Text)
-
valwedslunch = Val(TxtWedsLunch.Text)
-
valthurslunch = Val(TxtThursLunch.Text)
-
valfrilunch = Val(TxtFriLunch.Text)
-
valsatlunch = Val(TxtSatLunch.Text)
-
-
SunTotal = valsunend - valsunstart - valsunlunch
-
MonTotal = valmonend - valmonstart - valmonlunch
-
TuesTotal = valtuesend - valtuesstart - valtueslunch
-
WedsTotal = valwedsend - valwedsstart - valwedslunch
-
Thurstotal = valthursend - valthursstart - valthurslunch
-
FriTotal = valfriend - valfristart - valfrilunch
-
SatTotal = valsatend - valsatstart - valsatlunch
-
-
HoursTotal = SunTotal + MonTotal + TuesTotal + WedsTotal + Thurstotal + FriTotal + SatTotal
-
LblHours.Caption = HoursTotal
-
End Sub
