1 2 3 4 5 6 7 8 9
| Plage := TargetSheet.Range[TargetSheet.Cells.Item[2, 16],
TargetSheet.Cells.Item[TargetRow, 16]];
TmpDble := xlApp.WorksheetFunction.Min(Plage, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam);
DecodeDate(TmpDble, MinYear, Month, Day); |
Partager