[vb6] convertire orario in intero

[oregon]

Ma l'ora in questione l'hai inserita in una stringa ?

Se è così, puoi scrivere

Dim v As Integer

v = DatePart("h", s) - (DatePart("n", s) > 29)