' 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