Page History

// Based on the current view, determine the location of the time 
CurrentView = Get_Property(@Window:".OLE_SCHEDULE", "OLE.View") 
Begin Case 
   Case CurrentView EQ "SingleDay" 
       // Pass Time format, result is Y 
       Y = Send_Message(Ctrl, "OLE.MapTimeToClient", IConv("1:17PM", "MTH"), 0) 
   Case CurrentView EQ "SingleDayHorz" 
       // Pass Time format, result is X 
       X = Send_Message(Ctrl, "OLE.MapTimeToClient", IConv("1:17PM", "MTH"), 0) 
   Case CurrentView EQ "MultiDayHorz" 
       // Pass DateTime format, result is X 
       X = Send_Message(Ctrl, "OLE.MapTimeToClient", IConv("7/4/2011 4:40PM", "DT"), 0) 
End Case