' This example uses the FormatDateTime function to format
' the date information.
' FormatDateTime is accepted in VB 6.0, but not VB 5.0.
' VB 5.0 programmers can replace "FormatDateTime(Attrib.Value, vbLongDate)"
' with "Attrib.Value" to get an unformatted date.
Dim CC As New ClearCase.Application
Dim Ver As CCVersion
' Get a version
Set Ver = CC.Version("y:\pitschke_test\foo.c")
' Lookup "DateTested" Attribute on the version
Dim Attrib As CCAttribute
Set Attrib = Ver.Attribute("DateTested")
MsgBox FormatDateTime(Attrib.Value, vbLongDate), , "Date Tested for " & Ver
' Replace the date with todays - need to set Replace to "True"
Attrib.Type.Apply Ver, Date, , True
' Need to get new attribute instance, as old one points to
' an attribute that has just been replaced
Set Attrib = Ver.Attribute("DateTested")
MsgBox FormatDateTime(Attrib.Value, vbLongDate), , "Date Tested for " & Ver