Welcome to Bob Erhart's Internet Site

HOME ADD MESSAGE PAGE/EMAIL TAKE A DEMO SURVEY SEE DEMO SURVEY RESULTS VBA DEMO

BACK TO SOURCE CODE LISTING '=================================================================== ' Function Name : Block2Hour() ' Purpose : Convert TimeBlock Values to Time Strings ' : Example : Time Block 0 = 00:00 ' : Time Block 1 = 00:15 ' : Time Block 95 = 23:45 ' Date : 2/15/99 ' Written By : R.G. Erhart '=================================================================== Private Function Block2Hour(InBlock) Dim OutTime Dim BlockHour Dim BlockMinute InBlock = (InBlock * 1) BlockHour = (InBlock \ 4) BlockMinute = ((InBlock - (BlockHour * 4)) * 15) If BlockHour < 10 then BlockHour = "0" & BlockHour If BlockMinute < 10 then BlockMinute = "0" & BlockMinute Block2Hour = BlockHour & ":" & BlockMinute End Function

© Copyright 1999, 2013, R.G. Erhart, Erhart Consulting LLC™, Rochester New York