SyntaxFix

[ms-access] Now() function with time trim

I would prefer to make a function that doesn't work with strings:

'---------------------------------------------------------------------------------------
' Procedure : RemoveTimeFromDate
' Author    : berend.nieuwhof
' Date      : 15-8-2013
' Purpose   : removes the time part of a String and returns the date as a date
'---------------------------------------------------------------------------------------
'
Public Function RemoveTimeFromDate(DateTime As Date) As Date


    Dim dblNumber As Double

    RemoveTimeFromDate = CDate(Floor(CDbl(DateTime)))

End Function

Private Function Floor(ByVal x As Double, Optional ByVal Factor As Double = 1) As Double
    Floor = Int(x / Factor) * Factor
End Function

Examples related to ms-access

• How to get parameter value for date/time column from empty MaskedTextBox • Access And/Or exclusions • Get length of array? • How to pass an array to a function in VBA? • How to insert values into the database table using VBA in MS access • Access 2013 - Cannot open a database created with a previous version of your application • Does VBA contain a comment block syntax? • java.lang.ClassNotFoundException: sun.jdbc.odbc.JdbcOdbcDriver Exception occurring. Why? • Manipulating an Access database from Java without ODBC • How to find longest string in the table column data

Examples related to ms-access-2007

• C# Inserting Data from a form into an access Database • How to show row number in Access query like ROW_NUMBER in SQL • Import an Excel worksheet into Access using VBA • How to refer to Excel objects in Access VBA? • Retrieve column values of the selected row of a multicolumn Access listbox • Determine whether a Access checkbox is checked or not • Now() function with time trim • How do I correctly use "Not Equal" in MS Access? • A select query selecting a select statement • Use SELECT inside an UPDATE query

Examples related to vba

• Copy filtered data to another sheet using VBA • Better way to find last used row • Check if a value is in an array or not with Excel VBA • Creating an Array from a Range in VBA • Excel: macro to export worksheet as CSV file without leaving my current Excel sheet • VBA: Convert Text to Number • What's the difference between "end" and "exit sub" in VBA? • Rename Excel Sheet with VBA Macro • Extract Data from PDF and Add to Worksheet • Quicker way to get all unique values of a column in VBA?

Examples related to ms-access-2003

• Now() function with time trim