procedure main; 
var
 planswift: IPlanSwift;
 settings: IItem;
 property: IPropertyObject 
begin
 planswift := coPlanSwift.Create();
 settings := planswift.getItem('\Settings');
 property := planswift.GetProperty('LastReportValidUntil');
 WriteLn(property.ResultAsString()) 
end

//or 
procedure main; 
var
 planswift: IPlanSwift;
 property:IPropertyObject; 
begin
 planswift := coPlanSwift.Create();
 property := planswift.GetProperty('\Settings','LastReportValidUntil'); 
 WriteLn(property.ResultAsString()) 
end;

private void Main()
{
	PlanSwift planswift = new PlanSwift();
	IItem settings = planswift.GetItem(@"\Settings");
	IPropertyObject property = settings.GetProperty("LastReportValidUntil");
	console.WriteLn(property.ResultAsString())
}

private void Main()
{
	PlanSwift planswift = new PlanSwift();
	IPropertyObject property = planswift.GetProperty(@"\Settings","LastReportValidUntil")
	console.WriteLn(property.ResultAsString)
}

Sub main()
    Dim planswift = CreateObject("PlanSwift9.PlanCenter")
    Dim settings = planswift.GetItem("\Settings")
    Dim property = settings.GetProperty("LastReportValidUntil")
    Console.WriteLn(property.ResultAsString());
End Sub

Sub Main()
    Dim planswift = CreateObject("PlanSwift9.PlanCenter")
    Dim nameProperty = planswift.GetProperty("\Settings","LastReportValidUntil")
    Console.WriteLn(property.ResultAsString)
End Sub

begin
    settings := getItem('\Settings');
    ShowMessage(GetResultAsString(settings,'LastReportValidUntil'));
end

begin
   ShowMessage(GetResultAsString('\Settings','LastReportValidUntil'));
end

begin
    settings := PlanSwift.getItem('\Settings');
    property := settings.GetProperty('LastReportValidUntil');
    ShowMessage(property.ResultAsString);
end

begin
    property := PlanSwift.GetProperty('\Settings','LastReportValidUntil');
    ShowMessage(property.ResultAsString);
end