Examples: TimeFmt property

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim vc As NotesViewColumn
  Dim f As String
  Set db = session.CurrentDatabase
  Set view = db.GetView("All Documents")
  Set vc = view.Columns(0)
  If vc.TimeFmt = VC_FMT_HMS Then
    vc.TimeFmt = VC_FMT_HM
    f = "Hour + minute"
  Elseif vc.TimeFmt = VC_FMT_HM Then
    vc.TimeFmt = VC_FMT_H
    f = "Hour"
  Elseif vc.TimeFmt = VC_FMT_H Then
    vc.TimeFmt = VC_FMT_ALL
    f = "Hour + minute + second + hundredths"
  Else
    vc.TimeFmt = VC_FMT_HMS
    f = "Hour + minute + second"
  End If
  Messagebox f,, "New time format"
End Sub