DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Option Explicit
Sub Test()
MsgBox Format((Cells(2, 1) - Cells(1, 1)) * 1440, "0.00") & " Saniye"
End Sub
Option Explicit
Sub Test()
MsgBox DateDiff("n", Cells(1, 1), Cells(2, 1))
End Sub