if contains ([TimeDate],'AM') then if tonumber(left([TimeDate],2))= 12 then "00"+":"+Substring([TimeDate],2,2)+":00" else left([TimeDate],2)+":"+Substring([TimeDate],2,2)+":00" endif else if tonumber(left([TimeDate],2))= 12 then left([TimeDate],2)+":"+Substring([TimeDate],2,2)+":00" else tostring(12+ tonumber(left([TimeDate],2)))+":"+Substring([TimeDate],2,2)+":00" endif endif