RATE THIS ANSWER
-1
Click to Vote:
0
-1
Last Answered:
Apr 28 2008 1:23 PM GMT
by Jellybean
Dim session As New NotesSession
Dim db As NotesDatabase
Dim createDate As Variant
Set db = session.CurrentDatabase
createDate = db.Created
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
%Rem
DatabaseCreatedDate is a text field on your form or page
%End REM
Set uidoc.fieldsettext(DatabaseCreatedDate;cstr(createddate))
Call uidoc.refresh