convert DTpicker time to minutes

[Bernieg]

Hi im try to convert DTpicker time to minutes
i.e. 1:30:00 = 90

What i get in a general formatted cell is 40681.0625
and i want 90

'Trials / development
If data_capture_sheet.DTPicker36 <> "18/05/2011" Then
Cells(r, 15).Value = data_capture_sheet.DTPicker36
End If

Bernie

 

[p45cal]

Either

ActiveSheet.Cells(r, 15).Value = data_capture_sheet.DTPicker36 - Int(data_capture_sheet.DTPicker36)

and custom format the cell with:
[mm]
or
[mm]:ss

Or
leave the format as General and use:

ActiveSheet.Cells(r, 15).Value = (data_capture_sheet.DTPicker36 - Int(data_capture_sheet.DTPicker36)) * 1440

 

[Bernieg]

Thanks Cal that worked great

Bernie