E' un campo, accidenti a me... stringa, e di 9 caratteri ...( pazzi coloro che l'hanno creato in sto modo...) ... quindi non mi trovavo per nulla.. tentando... inutilmente di utilizzare... HOUR oppure MINUTE ... solo che quando non era valorizzatoil campo ora ex: 30:00 ( 30 minuti ) mi dava errore... cosi' tramite l'ultima indicazione... mi si è accesa una lampadina, come sempre accade quando si guardano le cose da soli...
ecco quanto fatto e funzionante :
Private Sub OK_Click()
Dim ORE As Integer
Dim ORE2 As String
Dim MINUTI As Integer
Dim SECONDI As Integer
Dim CENTESIMI As Variant
ORE2 = Mid$(TOPEA, 4, 1)
If ORE2 <> ":" Then
ORE = 0
Else
ORE = Hour(Me.TOPEA.Value)
End If
MINUTI = Mid$(TOPEA, 5, 2)
CENTESIMI = Int(MINUTI * 100 / 60)
ORECENTESIMALI.Value = ORE & "," & CENTESIMI
End Sub
ADESSO UNA DOMANDA, come dico io sempre magari un po' sciocca, per poter far si di creare un output... da questa maschera che ho creato ( appositamente per controllare quaeste ore...e con un option box ( si/no) confermo o meno la validità di quello che vedo)...che idee vi balzano in mente ?
HO PROVATO UTILIZZANDO OUTPUT SU ... mediante macro ...( chiaramente che passerà per una query... dove indico cio' che mi interessa.. )
che ne pensate?
un saluto ancora e grazie per le idee
Raffaele
piercing ha scritto:Che tipo di dato è il campo Ora?
e non per farmi i fatti tuoi... ma perchè devi fare questa operazione?