C++Builder
|
Delphi
|
FireMonkey
|
C/C++
|
Free Pascal
|
Firebird
경고!
게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델파이 팁&트릭
Delphi Programming Tip&Tricks
[130]
오늘은 올해의 몇번째 날인가 ?
박정모
[
]
4550 읽음
2001-12-22
20:57
function DayOfYear( ADate : TDateTime ) : Integer;
var
FirstDate: TDateTime;
YYYY, MM, DD: Word;
begin
DecodeDate(ADate, YYYY, MM, DD);
FirstDate := EncodeDate(YYYY, 1, 1);
Result := Trunc(ADate - FirstDate) + 1;
end;
Trackback :
http://delphi.borlandforum.com/impboard/impboard.dll/trackback?sn=24482
+
-
관련 글 리스트
130
오늘은 올해의 몇번째 날인가 ?
박정모
4550
2001/12/22
제목
내용
이름
Copyright © 1999-2015, borlandforum.com. All right reserved.