Q&A
- 날짜에서 이전달을 구할려면 어떻게 하죠?
하루전 날짜는 이렇게 구하면 되죠...
안녕하십니까 ? BestDragon입니다..
간단히 날짜함수를 사용하면 쉽게 구할수 있습니다..
var
aDate : TDateTime;
BeforeDate : String;
begin
aDate := DateTimePicker1.Date;
aDate := aDate -1; //하루를 빼면 됩니다...
BeforeDate := FormatDateTime('YYYYMMDD', DateTimePicker1.Date);
ShowMessage(Before);
그런데, 하루 전 날짜가 아니라, 이전 달을 구하려면 어떻게 해야되나요?
DateTime에서 달에 해당하는 스트링을 추출해서, 정수 변환하고 해서 구할 수도 있지만, 이렇게 하면, 달에 따라 연도도 바꾸어 주어야 하는 등 불편할 것 같은데,...
어던 방법이 있을까요...
안녕하십니까 ? BestDragon입니다..
간단히 날짜함수를 사용하면 쉽게 구할수 있습니다..
var
aDate : TDateTime;
BeforeDate : String;
begin
aDate := DateTimePicker1.Date;
aDate := aDate -1; //하루를 빼면 됩니다...
BeforeDate := FormatDateTime('YYYYMMDD', DateTimePicker1.Date);
ShowMessage(Before);
그런데, 하루 전 날짜가 아니라, 이전 달을 구하려면 어떻게 해야되나요?
DateTime에서 달에 해당하는 스트링을 추출해서, 정수 변환하고 해서 구할 수도 있지만, 이렇게 하면, 달에 따라 연도도 바꾸어 주어야 하는 등 불편할 것 같은데,...
어던 방법이 있을까요...
3
COMMENTS
-
-
초보 wrote:
> 하루전 날짜는 이렇게 구하면 되죠...
> 안녕하십니까 ? BestDragon입니다..
> 간단히 날짜함수를 사용하면 쉽게 구할수 있습니다..
>
> var
> aDate : TDateTime;
> BeforeDate : String;
> begin
> aDate := DateTimePicker1.Date;
> aDate := aDate -1; //하루를 빼면 됩니다...
> BeforeDate := FormatDateTime('YYYYMMDD', DateTimePicker1.Date);
> ShowMessage(Before);
>
> 그런데, 하루 전 날짜가 아니라, 이전 달을 구하려면 어떻게 해야되나요?
> DateTime에서 달에 해당하는 스트링을 추출해서, 정수 변환하고 해서 구할 수도 있지만, 이렇게 하면, 달에 따라 연도도 바꾸어 주어야 하는 등 불편할 것 같은데,...
> 어던 방법이 있을까요...
>
>
저도 어딘가에서 보고 사용하고 있는 것입니다..
이렇게 해보세요.....
//============================================================================//
// 날짜(월) 증감 구한다.
//============================================================================//
function MonthUpDoun(stDate, Cnt:String):String;
var
CurDate : TDateTime;
begin
ShortDateFormat:='YYYY-MM-DD';
CurDate := strtoDate(Copy(stDate,1,4) + '-' + Copy(stDate,6,2) + '-'
+ Copy(stDate,9,2));
CurDate := incMonth(CurDate, StrToInt(Cnt)); //날짜(월)를 구한다
Result := DateToStr(CurDate);
end;
-
초보 wrote:
> 하루전 날짜는 이렇게 구하면 되죠...
> 안녕하십니까 ? BestDragon입니다..
> 간단히 날짜함수를 사용하면 쉽게 구할수 있습니다..
>
> var
> aDate : TDateTime;
> BeforeDate : String;
> begin
> aDate := DateTimePicker1.Date;
> aDate := aDate -1; //하루를 빼면 됩니다...
> BeforeDate := FormatDateTime('YYYYMMDD', DateTimePicker1.Date);
> ShowMessage(Before);
>
> 그런데, 하루 전 날짜가 아니라, 이전 달을 구하려면 어떻게 해야되나요?
> DateTime에서 달에 해당하는 스트링을 추출해서, 정수 변환하고 해서 구할 수도 있지만, 이렇게 하면, 달에 따라 연도도 바꾸어 주어야 하는 등 불편할 것 같은데,...
> 어던 방법이 있을까요...
>
>
IncMonth 라는 함수가 있습니다.
(NOTICE) You must be logged in to comment on this post.
-
-
허접•2001.05.08 03:46MIN wrote: > 질문1) > ACDSEE나 WinAMP같은 프로그램을 만든다고 할때 > 델파이로도 만들수있는겁니까...
-
최종민•2001.05.08 02:50MIN wrote: > > 질문1) > ACDSEE나 WinAMP같은 프로그램을 만든다고 할때 > 델파이로도 만들수있는겁...
-
-
- 델초
- •
- 2001.05.08 00:23
- 3 COMMENTS
- /
- 0 LIKES
-
얀•2001.05.08 01:50델초 wrote: > 고수님들의 도움을 받고자 함미다. > . > . > OutLine 을 이용 메뉴 화면을 만들려고 합...
-
델초•2001.05.08 01:56신경을 써주셔서 감사함미다... 지가 완전 초보라서.....-_-;; 지송하지만 간단한 셈플을 제공해주시며 ...
-
얀•2001.05.08 02:42델초 wrote: > 신경을 써주셔서 감사함미다... > 지가 완전 초보라서.....-_-;; > 지송하지만 간단한 셈...
-
- 초보
- 2001.05.08 00:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 김아성
- •
- 2001.05.07 23:43
- 3 COMMENTS
- /
- 0 LIKES
-
하눌이•2001.05.07 23:56Open대시 ExecSql을 사용해보심이 ...
-
김아성•2001.05.08 00:38감사합니다. 덕분에 그부분은 해결이 되었습니다. ^^; 그런데 문제는, 10초뒤에 다시 실행이 되면 DBGri...
-
하눌이•2001.05.08 18:34SELECT 일경우만 OPEN 그외의 INSERT , UPDATE, DELETE 명령을 사용할 경우 ExecSQL을 사용하게 됩니다. ...
-
- peritus
- •
- 2001.05.07 23:52
- 1 COMMENTS
- /
- 0 LIKES
-
Mr. Larson•2001.05.08 00:53기냥 간단하게.... 변수 하나를 달아서.... a.txt 가 생성시작; 변수 := '생성중'; ...
-
- 소원석
- 2001.05.07 22:41
- 0 COMMENTS
- /
- 0 LIKES
-
- MIN
- •
- 2001.05.07 22:26
- 6 COMMENTS
- /
- 0 LIKES
-
학생•2001.05.08 04:02일단..울음부터.ㅜㅜ;; 온라인게임 천년. 알집. 지펜놀. 아래한글1.0이 파스칼. 헬프워드. 다바. 자...
-
Falco•2001.05.08 00:14WinM(윈도우즈용 Mdir) http://www.winm.co.kr Sasami2K (DivX 영화 요즘 많이 보죠?) http://www.sasami2...
-
김형준•2001.05.07 23:40제가 알고 있는 넘은 4개입니다.. 뭐 유명한(?) 넘으로만 소개해 드리자면.. Windows commander -> VC...
-
떠돌이•2001.05.07 23:02MIN wrote: > > 지금까지 델파이(파스칼)을 이용해서 개발된 SW들은 어떤것이 있습니까? > > 예를들...
-
김형준•2001.05.07 23:29Acdsee가 델파이로 맹그렇다구요? 버전 몇을 말씀하시는건지..... 제가 방금 확인(버전2.0)해보니.. 델파...
-
나그네•2001.05.07 22:52당장 하이텔이나 천리안의 업무용프로그램코너에 가보세요 근래에 개발되고 있는 업무용프로그램의 대부분...
-
- 델초보
- •
- 2001.05.07 22:07
- 1 COMMENTS
- /
- 0 LIKES
-
김양우•2001.05.09 03:21영문자 및 특수문자(한글일 경우는 안됨)로 이루어진 문자열일경우는 아래처럼 하면 될것 같습니다. f...
-
- 서광진
- •
- 2001.05.07 21:49
- 3 COMMENTS
- /
- 0 LIKES
-
지나가는이..•2001.05.07 22:38//--------------------------------------------- 지나가다 혹시나 도움이 될까 해서요.. 지금 숫자만 ...
-
서광진•2001.05.07 23:52지나가는이.. wrote: > //--------------------------------------------- > 지나가다 혹시나 도움이 될...
-
서광진•2001.05.07 22:53지나가는이.. wrote: > //--------------------------------------------- > 지나가다 혹시나 도움이 될...
-
- 김아성
- •
- 2001.05.07 21:50
- 1 COMMENTS
- /
- 0 LIKES
-
허접답변•2001.05.08 03:54안녕하세여 허접답변임다. 음.....타이머 Interval을 500(0.5초)나 1000(1초)정도로 셋팅을 하고나서 O...
-
- andrew
- 2001.05.07 21:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 하기현
- •
- 2001.05.07 21:15
- 2 COMMENTS
- /
- 0 LIKES
-
허접답변•2001.05.08 03:57안녕하세여 허접답변입니다. 테스트없이 그냥 지 생각 적어봅니다. table에서의 date,time필드를 사용...
-
송수정•2001.05.08 05:06date와 time는 예약어 아닌가여???
-
- hlpark
- •
- 2001.05.07 21:11
- 1 COMMENTS
- /
- 0 LIKES
-
허접답변•2001.05.08 04:01안녕하세여 허접답변임다. 스핀에디트의 onchange event가 있습니다. 값이 변경되면(실제로는 스핀에디...
-
- 델초
- 2001.05.07 21:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자
- 2001.05.07 21:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초
- 2001.05.07 21:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 정용광
- •
- 2001.05.07 21:15
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.07 21:28안녕하세요. 최용일입니다. uses절에 ActiveX유닛을 추가하시고 폼의 OnCreate이벤트같은 곳에서 한...
-
정용광•2001.05.07 22:11감사합니다. 아주 간단하군요.....(하하하) 최용일 wrote: > 안녕하세요. 최용일입니다. > > uses...
-
- 초보
- •
- 2001.05.07 20:44
- 3 COMMENTS
- /
- 0 LIKES
하루전 날짜는 이렇게 구하면 되죠... 안녕하십니까 ? BestDragon입니다.. 간단히 날짜함수를 사용하면 쉽게 구할수 있습니다.. var aDate : TDateTime; BeforeDate : String; begin aDate := DateTimePicker1.Date; aDate := aDate -1; /...-
구니•2001.05.11 03:39초보 wrote: > 하루전 날짜는 이렇게 구하면 되죠... > 안녕하십니까 ? BestDragon입니다.. > 간단히 ...
-
이상우•2001.05.07 23:07초보 wrote: > 하루전 날짜는 이렇게 구하면 되죠... > 안녕하십니까 ? BestDragon입니다.. > 간단히 ...
-
안재현•2001.05.07 20:56초보 wrote: > 하루전 날짜는 이렇게 구하면 되죠... > 안녕하십니까 ? BestDragon입니다.. > 간단히 ...
-
- 최은규
- 2001.05.07 20:12
- 0 COMMENTS
- /
- 0 LIKES
-
> 하루전 날짜는 이렇게 구하면 되죠...
> 안녕하십니까 ? BestDragon입니다..
> 간단히 날짜함수를 사용하면 쉽게 구할수 있습니다..
>
> var
> aDate : TDateTime;
> BeforeDate : String;
> begin
> aDate := DateTimePicker1.Date;
> aDate := aDate -1; //하루를 빼면 됩니다...
> BeforeDate := FormatDateTime('YYYYMMDD', DateTimePicker1.Date);
> ShowMessage(Before);
>
> 그런데, 하루 전 날짜가 아니라, 이전 달을 구하려면 어떻게 해야되나요?
> DateTime에서 달에 해당하는 스트링을 추출해서, 정수 변환하고 해서 구할 수도 있지만, 이렇게 하면, 달에 따라 연도도 바꾸어 주어야 하는 등 불편할 것 같은데,...
> 어던 방법이 있을까요...
>
>
지난달과 지지난달의 날짜를 구하는 프로시져를 만들어봤습니다.
아주 간단하죠..?
필요하신부분에 잘라서 응용하시길... 9279
-------------------------------------------------------------------
procedure UDP_Check2MonthAgo;
var
vl_dCurDate : TDateTime; //오늘 날짜용 변수
vl_dTwoMonthAgo : TDateTime; //2달전 날짜용 변수
vl_dMonthBefore : TDateTime; //1달전 날짜용 변수
begin
vl_dCurDate := Now; //오늘날짜 셋팅
vl_dMonthBefore := incMonth(CurDate, -1); //한달전
vl_dTwoMonthAgo := incMonth(MonthBefore, -1); //두달전
//움냐 3줄로 끝났네요.. ^^ 한달 만 구할려면 2줄이면 되겠넹..
// 잘 나왔는지 확인함 해봅시다... ^^;;
showmessage(FormatdateTime('YYYYMMDD',vl_dTwoMonthAgo));
showmessage(FormatDateTime('YYYYMMDD',vl_dMonthBefore));
end;