BOM — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 8: | Строка 8: | ||
Bom( Date() ) | Bom( Date() ) | ||
| + | |||
| + | = Результат = | ||
| + | |||
| + | 01.04.2016 | ||
| + | |||
| + | = Полный текст функции = | ||
| + | |||
| + | type | ||
| + | TQREvBoM = class(TQREvDbFunction) | ||
| + | public | ||
| + | function Calculate: TQREvResult; override; | ||
| + | end; | ||
| + | |||
| + | function TQREvBoM.Calculate: TQREvResult; | ||
| + | var | ||
| + | res: TDateTime; | ||
| + | v: variant; | ||
| + | begin | ||
| + | res := BoM(Argument(0).DateResult); | ||
| + | v := res; | ||
| + | Result := QREvVariantToResult(@v); | ||
| + | end; | ||
Версия 10:56, 1 апреля 2016
BoM - это функция, описанная в файле QrAddFn.pas
BoM( Dt )
Возвращает дату первого дня месяца
Примеры
Bom( Date() )
Результат
01.04.2016
Полный текст функции
type
TQREvBoM = class(TQREvDbFunction)
public
function Calculate: TQREvResult; override;
end;
function TQREvBoM.Calculate: TQREvResult; var res: TDateTime; v: variant; begin res := BoM(Argument(0).DateResult); v := res; Result := QREvVariantToResult(@v); end;
