Reversing a format ...

[adambc]

I am using a UserForm (New Record) SpinButton to populate a TIME field using ...

txtReportedTime.value = Format(spnReportedTime / 24 / 60, "hh:mm")

... which works perfectly ...

But I now want to read that field back into another UserForm (Update Record) and set SpinButton.Value to the value of the field - but of course the field value is hh:mm whereas the SpinButton value is a numeric ...

Is there a way to reverse the process eg ...

spnReportedTime.value = Format(txtReportedTime etc etc)

Many thamks for any help anyone can give me ...

 

[adambc]

No-one?

Or am I chasing something that's not possible ...

Just to qualify SpinButton is set up with ...

Max 1440 (24 hrs * 60 mins)
Min 1
Small Change 10

... so 12 noon = 720, from which txtReportedTime is populated with 12:00 (which is the value that's then saved to the underlying column) ...

I can read this back into txtReportedTime perfectly - but I also want to be able to use 12:00 = 720 to set the SpinButton Value (rather than the SpinButton reverting to it's default Value) ...

Many thanks for any help - or clearly being told this is isn't possible?

 

[Norie]

Have you tried using TimeValue and multiplying by 24*60?

 

[adambc]

Have you tried using TimeValue and multiplying by 24*60?

@Norie

Not sure how that helps?

I want to convert h:mm back to a numeric (having converted a numeric to get the h:mm in the first place - see code above) ...

Thanks

 

[Norie]

If you have a time in text format using TimeValue will convert it into a time value and then multiplying it by 24*60 will give you the time in minutes as a numeric value.

Isn't that what you wanted?

Dim strTime As String

    strTime = "07:30"
    
    Debug.Print TimeValue(strTime) * 24 * 60
    
    strTime = "12:00"
    
    Debug.Print TimeValue(strTime) * 24 * 60

 

[adambc]

If you have a time in text format using TimeValue will convert it into a time value and then multiplying it by 24*60 will give you the time in minutes as a numeric value.

Isn't that what you wanted?

Dim strTime As String

    strTime = "07:30"
   
    Debug.Print TimeValue(strTime) * 24 * 60
   
    strTime = "12:00"
   
    Debug.Print TimeValue(strTime) * 24 * 60

@Norie

You're a STAR - works a treat ...

This is the actual code I've implemented ...

'Set SpinButton value to Incident Time
Dim strIncidentTime As String
    strIncidentTime = txtIncidentTime
    spnIncidentTime.value = TimeValue(strIncidentTime) * 24 * 60

Many thanks ...