- 기존 정해진 날짜에 년단위로 계산해서 날짜를 계산하려고 합니다.
근데 10년을 데입해서 하루를 빼서 계산 하는데..왜 3일 이상 차이가 나는지 모르겠네요..
여러분들의 도움 부탁드립니다..
If (CheckBox2.Checked = False) AND (StrToIntDef(Edit14.Text,0) <> 0) Then Begin
DateTimePicker2.Date := DateTimePicker1.Date + ((Strtoint(Edit14.Text)*365)-1);
End
이상입니다.
흠... 윤년을 간과하신것 같은데요... 일년이 항상 365일인것은 아닙니다.
365일을 더하시지 마시고 날짜를 디코딩해서 년도에 덧셈을 하세요...
DecodeDate/EncodeDate 쓰시면 됩니다.
^^ 항상 즐코하세요...