Project TIME calculated, in PHP
| From: | justino garcia | Date: | Sat, 01 May 2010 17:48:06 +0000 |
| Subject: | Project TIME calculated, in PHP | ||
| Groups: | php.general | ||
| Request: | Send a blank email to php-general+get-304818@lists.php.net to get a copy of this message | ||
tImeArrived = CDate(InputBox("Enter START time:", "Start time", "9:00
AM"))
TimeLeft = CDate(InputBox("Enter END time:", "End time", "1:24 PM"))
Minutes = DateDiff("n", TimeArrived, TimeLeft)
Hours = Int(Minutes / 60)
Minutes = Minutes - (Hours * 60)
TotalTime = Format(Hours, "0") & ":" & Format(Minutes, "00")
I did something like this in VBA, but I want to create something for PHP.
How can extract an am or pm from the input string, convert to 24 hours for
calculations, then convert back to 12 hour am/pm format in PHP?
I want to be able to put 9:00 am as Time Arrived, and 1:00 PM as Time Left,
then it puts in the subject the total time i worked on X project.
IN VBA thier is time diff function, how do I create something like that that
will create a email message, that is then sent to a suplied email, (i.e. our
ticket system).
Basically I want to transform my VBA code to PHP, so I can run a similar
idea on my Blackberry so other technicians in our office can send a proper
email on a blackberry while on call in the road.
This is what I did in VBA
" Dim OutlookMessage As Outlook.MailItem
Set OutlookMessage = Application.CreateItem(olMailItem)
MsgBox ("Welecome To Support Email")
custname = InputBox("Enter Cust name ", "Enter Cust Name", "Put Cust
Name")
job = InputBox("Work done", "Work", "Short Discrption")
TimeArrived = CDate(InputBox("Enter START time:", "Start time", "9:00
AM"))
TimeLeft = CDate(InputBox("Enter END time:", "End time", "1:24 PM"))
Minutes = DateDiff("n", TimeArrived, TimeLeft)
Hours = Int(Minutes / 60)
Minutes = Minutes - (Hours * 60)
TotalTime = Format(Hours, "0") & ":" & Format(Minutes, "00")
OutlookMessage.Subject = custname & ": " & Date & " " & job
OutlookMessage.To = "blah@blah.com"
OutlookMessage.CC = "blahcc@blah.com"
OutlookMessage.Body = custname & " " & Chr(13) & Date & Chr(13) &
"A: " &
TimeArrived & Chr(13) & "E:" & TimeLeft & Chr(13) & "Total:
" & TotalTime &
" " & Chr(13)
--
"
THanks
Justin
IT-TECH