Here's more or so what i was looking for the other day. I figured i'd post it in case someone needed something similar.
RETURNS INTEGER
(INPUT ip_cTimeString AS CHARACTER):
/* This function takes a string time in the HH:MM AM fomrat like '2:30 PM' and
converts it into the total seconds after midnight. Such as 52200 secs as an Int */
DEFINE VARIABLE iHours AS INTEGER NO-UNDO.
DEFINE VARIABLE iMins AS INTEGER NO-UNDO.
DEFINE VARIABLE iTime AS INTEGER NO-UNDO.
DEFINE VARIABLE strAM_PM AS CHARACTER NO-UNDO.
DEFINE VARIABLE strHour AS CHARACTER NO-UNDO.
DEFINE VARIABLE strMin AS CHARACTER NO-UNDO.
iTime = 0.
ASSIGN
strMin = TRIM(SUBSTRING(ip_cTimeString, index(ip_cTimeString,":") + 1, 2))
strAM_PM = SUBSTRING(ip_cTimeString, index(ip_cTimeString,"M") - 1, 2).
strHour = TRIM(SUBSTRING(ip_cTimeString, index(ip_cTimeString,":") - 2, 2)) NO-ERROR.
IF ERROR-STATUS:NUM-MESSAGES > 0 THEN
strHour = TRIM(SUBSTRING(ip_cTimeString, index(ip_cTimeString,":") - 1, 1)).
ASSIGN
iHours = INTEGER(strHour)
iMins = INTEGER(strMin).
IF strAM_PM = "PM" THEN
iHours = iHours + 12.
iTime = (iHours * 60 * 60) + (iMins * 60).
RETURN iTime.
END FUNCTION.