View Issue Details
| ID | Project | Category | View Status | Date Submitted | Last Update |
|---|---|---|---|---|---|
| 0004481 | JEDI VCL | 00 JVCL Components | public | 2008-09-24 10:36 | 2008-09-24 14:44 |
| Reporter | lomo74 | Assigned To | jfudickar | ||
| Priority | normal | Severity | crash | Reproducibility | always |
| Status | resolved | Resolution | fixed | ||
| Product Version | 3.34 | ||||
| Target Version | Fixed in Version | ||||
| Summary | 0004481: bug in JvTFUtils.IncMonths | ||||
| Description | The function JvTFUtils.IncMonths is buggy, it does not work on year boundaries. Run attached project to reproduce the problem: the JvTFMonths component cannot go beyond november or before january. Proposed solution: procedure IncMonths(var ADate: TDateTime; N: Integer); // N defaults to 1 var Y, M, D, EOMD: Word; X: Cardinal; //This line added by me begin DecodeDate(ADate, Y, M, D); // Inc(Y, N div 12); // Wrong !!! // Inc(M, N mod 12); // Wrong !!! X := ((Y * 12) + M - 1 + N); Y := X div 12; M := (X mod 12) + 1; ... | ||||
| Tags | No tags attached. | ||||
| Date Modified | Username | Field | Change |
|---|---|---|---|
| 2008-09-24 10:36 | lomo74 | New Issue | |
| 2008-09-24 10:36 | lomo74 | File Added: JVTFtest.zip | |
| 2008-09-24 14:43 | jfudickar | Status | new => resolved |
| 2008-09-24 14:43 | jfudickar | Resolution | open => fixed |
| 2008-09-24 14:43 | jfudickar | Assigned To | => jfudickar |
| 2008-09-24 14:43 | jfudickar | Note Added: 0014668 |
