Free for PREMIUM members
Function ExcelDateToInt10(dateIn As Variant)
ExcelDateToInt10 = DateDiff("s", #1/1/1970#, dateIn)
Open in new window
Dim CLL As Range, dateOut As Variant
For Each CLL In Range("B2:B1861").Cells
dateOut = "ERROR: " & CLL.Text
On Error Resume Next
dateOut = DateDiff("s", #1/1/1970#, CLL.Value)
On Error GoTo 0
If dateOut < 0 Then dateOut = "ERROR: " & CLL.Text
CLL.Value = dateOut
Range("B2:B1861").NumberFormat = "General"
Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.