setting a date/time variable to use in other modules

[t16turbo]

My header and footer in a worksheet created by a macro, must show the date/time that the 'start' command button was pressed.

I need to assign this to the page property:

.RightHeader = "run date/time"

in module one, I have the on_click event.
module 14 contains the createtable subroutine that eventually populates the page setup.

can anybody tell me how to do this?
thanks in advance.

 

[CautionMP]

Throw this an a module (new or existing):

[Green]'Global declaration, should appear before any
procedures in a module[/green]
Dim dteStartTime As Date

Public Property Get StartTime() As Date
  StartTime = dteStartTime
End Property

Public Property Let StartTime(ByVal dteNewValue As Date)
  dteStartTime = dteNewValue
End Property

In your On_Click event for the start command button throw this code in:

StartTime = Now

When you build the footer call the property:

.RightHeader = StartTime

Hope this helps,
CMP


Instant programmer, just add coffee.