Convertir minutes en secondes

Question

J'ai une feuille de calcul avec des valeurs comme suit:

1: 29,460

je dois le convertir en

89,460

J'ai une énorme quantité de ces jeux compensations. Je peux soit le faire en Excel ou peut-être en utilisant javascript.

Tout conseil sur une formule appréciée!

Answer 1

est ici une solution JavaScript:

function convert(input) { 
    var parts = input.split(':'), 
     minutes = +parts[0], 
     seconds = +parts[1]; 
    return (minutes * 60 + seconds).toFixed(3); 
} 

convert('1:29.460'); // '89.460' 

Answer 2

Vous pouvez utiliser le code comme ceci:

function toSeconds(str) { 
    var pieces = str.split(":"); 
    var result = Number(pieces[0]) * 60 + Number(pieces[1]); 
    return(result.toFixed(3)); 
} 

toSeconds("1:29.460"); // returns 89.460 

Vous pouvez le voir travailler ici: http://jsfiddle.net/jfriend00/RrZ4W/

Answer 3

Vous formatez correctement vos cellules, excel stocke vos informations en tant que hh: mm.

Vous devez ajouter la colonne des heures dans votre cellule comme suit: 0:1:29.460 et assurez-vous qu'elle est définie sur le format de l'heure.

Puis dans une autre colonne assurez-vous que le format de cellule est défini sur le nombre et ajouter la formule suivante (en supposant que votre temps est stockée dans la cellule A1):

=A1*24*60*60 

Answer 4

Ecrire fonction suivante dans vos modules VBA

Public Function FormatMinutes(ByVal stime) As String 
    Dim hour: hour = Mid(stime, 1, InStr(1, stime, ":") - 1) 
    Dim minute: minute = CInt(Mid(stime, InStr(1, stime, ":") + 1, InStr(1, stime, ".") - InStr(1, stime, ":") - 1)) 
    FormatMinutes = (hour * 60 + minute) & Mid(stime, InStr(1, stime, "."), Len(stime)) 
End Function 

Pour l'utiliser, il suffit de mettre =FormatMinute(A1) dans le formulaire.

Answer 5

Pour donner toute l'image, voici la solution VBA (UDF):

Public Function ConvertToSecond(r As Range) 
Dim arr As Variant, lMinutes As Long, lSeconds As Double 
Debug.Print (r.Value) 
arr = Split(r.Value, ":") 
lMinutes = arr(0) 
lSeconds = CDbl(Replace(arr(1), ".", ",")) 
ConvertToSecond = Format(lMinutes * 60 + lSeconds, "#0.0##") 
End Function