Example: Changing the value of an attribute

' 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

Feedback