11 lines
333 B
Plaintext
11 lines
333 B
Plaintext
lparameters toUpdateObject
|
|
local ldDate, ;
|
|
lnJulian, ;
|
|
lcJulian
|
|
ldDate = date(2018,1,8)
|
|
lnJulian = val(sys(11, ldDate)) - val(sys(11, {^2000-01-01}))
|
|
lcJulian = padl(transform(lnJulian), 4, '0')
|
|
toUpdateObject.AvailableVersion = 'FoxBin2Prg-1.19.49.6' + lcJulian + ;
|
|
'-update-' + dtoc(ldDate, 1)
|
|
return toUpdateObject
|