Caché 变量大全 $ZVERSION 变量

$ZVERSION 
$ZV

DHC-APP>WRITE $ZVERSION
Cache for Windows (x86-64) 2016.2 (Build 736U) Fri Sep 30 2016 11:46:02 EDT

DHC-APP>WRITE $SYSTEM.Version.GetVersion()
Cache for Windows (x86-64) 2016.2 (Build 736U) Fri Sep 30 2016 11:46:02 EDT

DHC-APP> DO $SYSTEM.Version.Help()
'Do $system.Version.Help(method)' 将显示单个方法的完整描述.
 
类的方法:%SYSTEM.Version
 
FeatureBits(bit)
     Return all the feature codes stored in $zversion(0)
 
Format(Format,zv)
     Formats the version info according to the following format types:
 
GetBuildDate(zv)
     Returns the date the product was built in $HOROLOG format.
 
GetBuildNumber(zv)
     Returns the build number for the product.
 
GetBuildOS(zv)
     Returns the operating system for which the product was built.
 
GetBuildTime(zv)
     Returns the time of day the product was built in $HOROLOG format.
 
GetCompBuild(component)
     Returns the build number for the specified component. (Deprecated)
...

/// d ##class(PHA.TEST.SpecialVariables).ZVERSION()
ClassMethod ZVERSION()
{
    SET createdate=$PIECE($ZVERSION," ",9,11)
    WRITE !,"Creation date: ",createdate
    WRITE !,"Current date:  ",$ZDATE($HOROLOG,6)
    SET nowcount=$PIECE($HOROLOG,",")
    SET thencount=$ZDATEH(createdate,6)
    WRITE !,"This version is ",(nowcount-thencount)," days old"
}

DHC-APP>d ##class(PHA.TEST.SpecialVariables).ZVERSION()
 
Creation date: Sep 30 2016
Current date:  Feb 10 2021
This version is 1594 days old

/// d ##class(PHA.TEST.SpecialVariables).ZVERSION1()
ClassMethod ZVERSION1()
{
    SET createdate=$SYSTEM.Version.GetBuildDate()
    WRITE !,"Creation date: ",$ZDATE(createdate,6)
    WRITE !,"Current date:  ",$ZDATE($HOROLOG,6)
    SET nowcount=$PIECE($HOROLOG,",")
    WRITE !,"This version is ",(nowcount-createdate)," days old"
}

DHC-APP>d ##class(PHA.TEST.SpecialVariables).ZVERSION1()
 
Creation date: Sep 30 2016
Current date:  Feb 10 2021
This version is 1594 days old