Databases
StackOverflow2013
Postsdbo
POExcel macro, how to determine if a date is in the past?
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POExcel macro, how to determine if a date is in the past?
    primarykey
    data
    text
    <p>Pardon the basicness of the question, but I figure there has to be a simple, naive solution to this that I just can't find.</p> <p>The basic scenario is that I have an Excel workbook that we use as our corporate solution for tracking backup success rates, and as a result, we have a number of sheets with the date in the first column, and some small macros to do calculations, based on whether the date is in the past or not. (Mainly for the managers who look at this sheet and don't want a bunch of empty rows, so the macros either hide or reveal the appropriate rows.)</p> <p>This has been working well until yesterday (happy new year); I assume because the macros are doing a string comparison, rather than a date comparison. (<code>01/01/2013</code> is smaller than <code>12/31/2012</code>, when viewed as strings.)</p> <p>The macros are below, and the question is essentially if there's a native way to compare dates in VBA, or if I need to convert the dates from a human date format into <code>yyyy/mm/dd</code> first, and then do my logic. (And if I do need to do so, a basic how would be nice - I try to avoid Excel and VBA in general where ever possible, so I'm extremely limited in my coding skills as far as VBA goes.)</p> <p><code>A2</code> would be the cell with the first date we started using this new version of the spreadsheet, and <code>A454</code> would be the last date I've bothered to extend the spreadsheet to, corresponding to the end of this year.</p> <pre><code>Sub ShowAll() Dim cell As Range For Each cell In Range("A2:A454") cell.EntireRow.Hidden = False Next End Sub Sub RevealPast() Dim cell As Range For Each cell In Range("A2:A454") If cell.Value &lt; Date Then cell.EntireRow.Hidden = False End If Next End Sub Sub HideFuture() Dim cell As Range For Each cell In Range("A2:A454") If cell.Value &gt;= Date Then cell.EntireRow.Hidden = True End If Next End Sub </code></pre>
    singulars
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. PTQuestion
    1. USpnuts
    1. USHopelessN00b
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. POExcel macro, how to determine if a date is in the past?
      1. This table or related slice is empty.
      1. VTUpMod
    2. VO
      singulars
      1. POExcel macro, how to determine if a date is in the past?
      1. This table or related slice is empty.
      1. VTUpMod
    3. VO
      singulars
      1. POExcel macro, how to determine if a date is in the past?
      1. This table or related slice is empty.
      1. VTDownMod
    1. This table or related slice is empty.
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload