Here is the VBA code I am using.
tmpData = 1380 ' # 23 Hours comes out as 23:00:000
wkRawDataFormatted.Cells(tmpRow, intStaffColumn).NumberFormat = "[h]:mm:ss;@"
wkRawDataFormatted.Cells(tmpRow, intStaffColumn) = Format((tmpData / 1440), "hh:nn:ss")
tmpData = 1440 ' # 24 Hours comes out as 00:00:000
wkRawDataFormatted.Cells(tmpRow, intStaffColumn).NumberFormat = "[h]:mm:ss;@"
wkRawDataFormatted.Cells(tmpRow, intStaffColumn) = Format((tmpData / 1440), "hh:nn:ss")
tmpData = 1500 ' # 25 Hours comes out as 00:00:000
wkRawDataFormatted.Cells(tmpRow, intStaffColumn).NumberFormat = "[h]:mm:ss;@"
wkRawDataFormatted.Cells(tmpRow, intStaffColumn) = Format((tmpData / 1440), "hh:nn:ss")
Bookmarks