minuti e secondi con TimeSerial

calcola minuti e secondi tra due orari proposti da codice
usando TimeSerial
determinazione
della differenza di tempo in secondi, minuti, trascorsa tra due
orari assegnati da codice con #…#
si esegue la differenza tra i due orari
si divide per una costante che fornisce la differenza in secondi
si divide per un’altra costante che fornisce la differenza in
minuti
si visualizza risultato anche usando la funzione Int per
eliminare decimali

http://digilander.libero.it/francescovise/visualpre/visapre.htm
http://digilander.libero.it/francescovise/visualpre/secondi.htm

http://digilander.libero.it/francescovise/visualpre/secondi.ppt

Private Sub CommandButton1_Click()
Const ks = 1.15740740741499E-05 ‘ costante per conversione in
secondi
Const km = 0.000694444445 ‘ costante per conversione in minuti
Dim ora1, ora2 As Date
Dim differenzas, differenzam As Double
Dim calcolas1, calcolam1, calcolas2, calcolam2 As Double
Dim s, m As Integer
ora1 = #10:10:00 AM#
ora2 = #10:20:00 AM#
Label8.Caption = (ora1 & " " & ora2)
differenza = ora2 – ora1
calcolas1 = differenza / 1.15740740741499E-05
calcolas2 = differenza / ks
calcolam1 = differenza / 0.000694444445
calcolam2 = differenza / km
Label1.Caption = calcolas1
Label2.Caption = calcolas2
Label3.Caption = calcolam1
Label4.Caption = calcolam2
s = Int(calcolas1)
m = Int(calcolam1)
Label9.Caption = s
Label10.Caption = m
End Sub

Informazioni su fumarino

interessato ad argomenti scientifici, ambienti naturali, parchi e monti
Questa voce è stata pubblicata in informatica. Contrassegna il permalink.

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...