Posts
 
Reputation
Joined
Last Seen
0 Reputation Points
100% Quality Score
Upvotes Received
1
Posts with Upvotes
1
Upvoting Members
1
Downvotes Received
0
Posts with Downvotes
0
Downvoting Members
0
0 Endorsements
~7K People Reached
Favorite Forums
Favorite Tags

1 Posted Topic

Member Avatar for Lebohang_1

Hi, I'm trying to convert the timebetween into a decimal, so i can calculate salary. `var TLogIn: TextFile; sLine, sTIn, sTOut,sUser,sTimeOut,sTimeIn,YourHMStr: string; iPosHash, iPosComma, iLength, iTimeIn,iTOut, iWage,iTimeOut:integer; TimeOut,dtDiff,TimeIn:TTime; rTime: real; d1, d2 : TDatetime; Begin //d2 := StrToTime(time()); TimeOut:= Time(); AssignFile(TLogIn,'LogInTime.txt'); reset(TLogIn); while NOT eof(TLogIn) do begin Readln(TLogIn,sLine); iPosHash:= Pos('#',sLine); …

Member Avatar for Bhavik_3
1
213

The End.