Home/ Questions/Q 84531
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-10T21:56:45+00:00

I’m using this database where the date colomn is a numeric value instead of

  • 0

I’m using this database where the date colomn is a numeric value instead of a Date value.

Yes, I know I can change that with a mouseclick, but all the applications using that database were made by one of my predecessors (and everyone after him just ignored it and built on). So if I’d change it to Date a lot af applications would fail. 🙁

Well, I am making an overview of that database, ranging from one specfic date to another. I tried using a dropdown list but as you can tell, a thousand options in one list is terribly inconvenient, even ugly.

I rather have small inputfields for day – month – year, but there comes waltzing in the numeric date in the database. I would have to calculate the date back to the numeric value somehow…

There must be an easy solution to this. Right?

I’m using ASP(vbscript) for the application, it’s for an intraweb, and I have an Access Database.

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Access will convert to a number for you, as was mentioned, the dates are stored as numbers.

    Dim rs As DAO.Recordset  Set rs = CurrentDb.OpenRecordset('TestTable') rs.AddNew rs!NumberDate = Now()  'Value stored, eg, 39791.4749074074 ' rs.Update  rs.MoveLast  'To show that it converts back to the correct date / time ' Debug.Print Format(rs!NumberDate, 'dd/mm/yyyy hh:nn:ss')

    EDIT re comment: Here is a small test that shows dates returned:

    Set cn = CreateObject('ADODB.Connection') Set rs = CreateObject('ADODB.Recordset')  strFile = 'C:\Docs\LTD.mdb'  cn.Open 'Provider=Microsoft.Jet.OLEDB.4.0;' & _        'Data Source=' & strFile & ';' & _        'Persist Security Info=False'  strSQL = 'SELECT NumberDate FROM TestTable WHERE NumberDate= #2008/12/7#'  rs.Open strSQL, cn, 3, 3 rs.MoveLast  MsgBox rs.RecordCount
    • 0