DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=(SOLDAN(A2;2)*60*60+PARÇAAL(A2;4;2)*60+SAĞDAN(A2;2))-(SOLDAN(A1;2)*60*60+PARÇAAL(A1;4;2)*60+SAĞDAN(A1;2))
0.0.48 saat 0 dakika 0 saniye 48
10.21.40 saat 10 dakika 21 saniye 40
Merhabalar,
Bir şey sormak istiyorum.
1. veri : 0.0.48
2. veri : 10.21.40
=48 saniye - 40 saniye
Aradaki fark 8 saniye mi ?
1. veri : 0.0.0040
2. veri : 10.21.48
=40 saniye - 48 saniye
Aradaki fark -8 saniye mi ?
Bu şekilde ise son .'dan sonraki verileri sayıya çevirerek alıp çıkartma işlemi yapsanız istediğiniz olmaz mı ?
Sub GA()
For i = 4 To 19
nokta1 = InStr(1, Cells(i, 1), ".", 1)
nokta2 = InStr(nokta1 + 1, Cells(i, 1), ".", 1)
a = Mid(Cells(i, "A"), 1, nokta1 - 1)
b = Mid(Cells(i, "A"), nokta1 + 1, nokta2 - nokta1 - 1)
c = Mid(Cells(i, "A"), nokta2 + 1, 2)
Cells(i, "d") = a & ":" & b & ":" & c
Cells(i, "e") = a * 60 * 60 + b * 60 + c
Next i
End Sub