TStockCreations.DateCreation
redirigé depuis TStockCreationsExtended.GetDateCreation
| TStockCreationsExtended = class (TStockCreations) | Interface de TStockCreationsExtended | Exemples de TStockCreationsExtended |
héritée de TStockCreations.DateCreation
| TStockCreations = class (TObject) | Interface de TStockCreations | Exemples de TStockCreations |
Date de la production
Syntaxe
property DateCreation[index: Integer]: Float read GetDateCreation
index: index de la production dans l'objet
Exemples
uses QubesStock;
// Récupération de la date de production la plus ancienne pour le Lot12345
var minDate : Float = Now;
var prods := TStockCreations.CreateLotGPAOID('Lot12345');
for var i:=0 to prods.Count-1 do begin
if prods.DateCreation[i]<minDate then
minDate:=prods.DateCreation[i];
end;
PrintLn(DateTimeToStr(minDate));
// Récupération de la date de production la plus ancienne pour le Lot12345
var minDate : Float = Now;
var prods := TStockCreations.CreateLotGPAOID('Lot12345');
for var i:=0 to prods.Count-1 do begin
if prods.DateCreation[i]<minDate then
minDate:=prods.DateCreation[i];
end;
PrintLn(DateTimeToStr(minDate));