Italian Domanda spinosa su gestione ore

[Xfood]

Buongiorno, supponiamo di avere un campo
Ora, di tipo numerico 4,2,
Ed inserisco i valori per esempio
Giorno ore
Giorno 1 ore di lavoro 10.50
Giorno 2 ore Di lavoro 10.50

Come faccio a fare una somma che mi restituisce 21.40?

Oppure esiste un metodo migliore per salvare le ore giornaliere e poi sommarle correttamente?

Grazie Per la cortese attenzione.

 

[Picena Informatica]

    Dim t As Int=(10*60 +50 +10*60+50)
    Dim H As Int=t/60
    Dim m As Int=t Mod 60

 

[Xfood]

    Dim t As Int=(10*60 +50 +10*60+50)
    Dim H As Int=t/60
    Dim m As Int=t Mod 60

Grazie per la celere risposta,
Quindi se avessi una lista di 31 giorni, dovrei sommare tutti e 31 giorni in questo metodo suppongo..

Dim t As Int=(10*60 +50 +10*60+50 +5*60+15 +3*60+45  ecc...)

 

[Picena Informatica]

oppure:

somma delle ore*60 + somma dei minuti

 

[Xfood]

oppure:

somma delle ore*60 + somma dei minuti

A questo punto mi conviere creare 2 campi interi, ore , minuti, e cosi mi viene meglio gestire le somme. Grazie.

 

[Picena Informatica]

puoi usare regex.split per avere le ore ed i minuti....

 

[Xfood]

puoi usare regex.split per avere le ore ed i minuti....

Un esempio.... ( non sono ancora molto pratico del potente regex)

 

[MarcoRome]

Puoi anche usare:

    ......
    Dim MyList As List = Array ("02:30", "05:30", "12:45", "03:25", "04:45")
    Dim ms As Long
    For Each tim As String In MyList
        Dim hm() As String =Regex.Split(":", tim)
        ms = ms + hm(0) * DateTime.TicksPerHour + hm(1) * DateTime.TicksPerMinute
    Next
    Log(ConvertMillisecondsToString(ms))
    .......
    

Sub ConvertMillisecondsToString(t As Long) As String
    Dim hours, minutes, seconds As Int
    hours = t / DateTime.TicksPerHour
    minutes = (t Mod DateTime.TicksPerHour) / DateTime.TicksPerMinute
    seconds = (t Mod DateTime.TicksPerMinute) / DateTime.TicksPerSecond
    Return $"$1.0{hours}:$2.0{minutes}:$2.0{seconds}"$
End Sub

Summing times

Hello..I have a series of lapsed times like 02:00 05:45 10:35 13:45 I want to add them up and result should be 32:05..These times are a part of sql db and I have a separate column where each are converted to strings..after passing the sum query I get the total ticks..issue is that after...

www.b4x.com

 

[Xfood]

Puoi anche usare:

    ......
    Dim MyList As List = Array ("02:30", "05:30", "12:45", "03:25", "04:45")
    Dim ms As Long
    For Each tim As String In MyList
        Dim hm() As String =Regex.Split(":", tim)
        ms = ms + hm(0) * DateTime.TicksPerHour + hm(1) * DateTime.TicksPerMinute
    Next
    Log(ConvertMillisecondsToString(ms))
    .......
    

Sub ConvertMillisecondsToString(t As Long) As String
    Dim hours, minutes, seconds As Int
    hours = t / DateTime.TicksPerHour
    minutes = (t Mod DateTime.TicksPerHour) / DateTime.TicksPerMinute
    seconds = (t Mod DateTime.TicksPerMinute) / DateTime.TicksPerSecond
    Return $"$1.0{hours}:$2.0{minutes}:$2.0{seconds}"$
End Sub

Ottimo...
Approfitto della vostra bontà di oggi,
Un ultimo sforzo

Supponiamo che con questa funzione sommo due valori, 1:15, 1:25
Mi ritorna correttamente 2 ore 30 minuti,
Supponiamo che il mio stipendio orario e di 5 euro l'ora, come faccio a calcolare il totale dovuto?
Dovrei avere totale dovuto = 12.50
Una funzioncina che passo le ore, i minuti di lavoro , piu il costo orario, e mi ritorana il totale dovuto?

Totaledovuto=CalcolaStipendio(ore,minuti,costo_orario)
Help..

 

[Xfood]

ok questa volta mi rispondo da solo, magari ce un modo piu elegante di farlo, ma sembra che funaziobna e per me va bene cosi,
(formattazione numeri a parte)
allego funzioncina

Log(CalcolaStipendio(2,30,5.00))  ' ritorna 12.5

Sub CalcolaStipendio(ore As Float,minuti As Float,costo_orario As Float) As Float
 Dim costo_x_Minuto As Float=costo_orario/60
 Dim Importo_Ore_Dovuto As Float = ore*costo_orario
 Dim Importo_Minuti_Dovuto As Float =minuti*costo_x_Minuto
 Return Importo_Ore_Dovuto+Importo_Minuti_Dovuto
End Sub

 

[LucaMs]

Buongiorno, supponiamo di avere un campo

Dato che suppongo non sia di grano ? (una cavolatina devo scriverla, no?!) non sarà che hai un campo di tabella-db?

Se fosse così, potresti salvare gli orari come Ticks di B4X e all'occorrenza sommarli, sottrarli e formattarli in visualizzazione.

 

[Filippo]

Approfitto della vostra bontà di oggi,
Un ultimo sforzo

Allora approfitta.

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
   
    Dim MyList As List = Array ("02:30", "05:30", "12:45", "03:25", "04:45")
    Dim tempo As Long
    DateTime.DateFormat = "HH:mm"
    For Each tim As String In MyList
        tempo = tempo + DateTime.DateParse(tim)
    Next

    Log("tempo=" & tempo)

    Log(ConvertMillisecondsToString(tempo))
End Sub

Sub ConvertMillisecondsToString(t As Long)
    Dim hours, minutes As Int
    hours = t / DateTime.TicksPerHour
    minutes = (t Mod DateTime.TicksPerHour) / DateTime.TicksPerMinute
    CalcolaStipendio(hours, minutes, 5.00)
End Sub

Sub CalcolaStipendio(ore As Int, minuti As Int,costo_orario As Double) As Double
    Dim total As Double = (ore * costo_orario) + (minuti * costo_orario / 60)
    Log(total)
    Return total
End Sub

 

[Xfood]

Dato che suppongo non sia di grano ? (una cavolatina devo scriverla, no?!) non sarà che hai un campo di tabella-db?

Se fosse così, potresti salvare gli orari come Ticks di B4X e all'occorrenza sommarli, sottrarli e formattarli in visualizzazione.

Devo ancora creare l'app, quindi posso ancora decidere come salvare i dati.
Dici neldb tipo intero, e salvo il valore come ticks?

 

[Xfood]

Allora approfitta.

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
   
    Dim MyList As List = Array ("02:30", "05:30", "12:45", "03:25", "04:45")
    Dim tempo As Long
    DateTime.DateFormat = "HH:mm"
    For Each tim As String In MyList
        tempo = tempo + DateTime.DateParse(tim)
    Next

    Log("tempo=" & tempo)

    Log(ConvertMillisecondsToString(tempo))
End Sub

Sub ConvertMillisecondsToString(t As Long)
    Dim hours, minutes As Int
    hours = t / DateTime.TicksPerHour
    minutes = (t Mod DateTime.TicksPerHour) / DateTime.TicksPerMinute
    CalcolaStipendio(hours, minutes, 5.00)
End Sub

Sub CalcolaStipendio(ore As Int, minuti As Int,costo_orario As Double) As Double
    Dim total As Double = (ore * costo_orario) + (minuti * costo_orario / 60)
    Log(total)
    Return total
End Sub

Ottimo.. grazie.