' Copyright 2006 ESRI
'                 
' All rights reserved under the copyright laws of the United States
' and applicable international laws, treaties, and conventions.
' 
' You may freely redistribute and use this sample code, with or
' without modification, provided you include the original copyright
' notice and use restrictions.
' 
' See the use restrictions.


Option Explicit

Public Const c_sCreFieldPropName As String = "CREATION_FIELDNAME"
Public Const c_sModFieldPropName As String = "MODIFICATION_FIELDNAME"
Public Const c_sUsrFieldPropName As String = "USER_FIELDNAME"
Public Const c_sCreFieldDefaultName As String = "Created"
Public Const c_sModFieldDefaultName As String = "ModifiedLast"
Public Const c_sUsrFieldDefaultName As String = "ModifiedBy"

Public Sub AddTimestampFields(pFieldsEdit As IFieldsEdit)
  
  Dim pFieldEdit As IFieldEdit
  
  ' CREATION FIELD
  Set pFieldEdit = New esriGeoDatabase.Field
  With pFieldEdit
    .Name = c_sCreFieldDefaultName
    .Type = esriFieldTypeDate
  End With
  pFieldsEdit.AddField pFieldEdit
  
  ' MODIFICATION FIELD
  Set pFieldEdit = New esriGeoDatabase.Field
  With pFieldEdit
    .Name = c_sModFieldDefaultName
    .Type = esriFieldTypeDate
  End With
  pFieldsEdit.AddField pFieldEdit

  ' USER FIELD
  Set pFieldEdit = New esriGeoDatabase.Field
  With pFieldEdit
    .Name = c_sUsrFieldDefaultName
    .Type = esriFieldTypeString
    .Length = 50
  End With
  pFieldsEdit.AddField pFieldEdit
End Sub