::: µ¨ÆÄÀÌ Tip&Trick :::

µ¨ÆÄÀÌ Tip&Trick ¼º°Ý¿¡ ¸ÂÁö ¾Ê´Â ±¤°í,ºñ¹æ,Áú¹®ÀÇ ±ÛÀº Áï½Ã »èÁ¦Çϸç
³»¿ëÀ» º¹»çÇÏ¿© »ç¿ëÇÒ °æ¿ì ¹Ýµå½Ã À̰÷(http://www.howto.pe.kr)À» Ãâó·Î ¸í½ÃÇÏ¿© ÁÖ¼¼¿ä


Category

  ±è¿µ´ë(2003-03-05 21:18:43, Hit : 4356, Vote : 1318
 ÁÖ¾îÁø ³â,¿ù,ÁÖÀÇ ´ÙÀ½ÁÖ

procedure Get_nextweeks(var yyyy:Integer; var mm:Integer; var week:Integer);
var
i: Integer;
begin
if week < Get_weeks(yyyy, mm) then // ÇöÀç ´ÞÀÇ ¸¶Áö¸· ÁÖº¸´Ù ÀÛÀ¸¸é ´ÙÀ½ÁÖ´Â +1 ÇÑ °á°ú
begin
   Inc(week);
   System.Exit;
end;

// ´ÙÀ½´ÞÀÇ Ã¹ÁÖ°¡ ÇöÀç ÁÖÀÇ ´ÙÀ½ÁÖ°¡ µÈ´Ù
week := 1;
if mm = 12 then // ´ÙÀ½´ÞÀ» ±¸ÇÑ´Ù
begin
   Inc(yyyy);
   mm := 1;
end
else
begin
   Inc(mm);
end;
end;


Function Get_weeks(yyyy,mm: Integer): Integer;
var
MyDate: TDateTime;
i, weeks: Integer;
Convert_OK: Boolean;
begin
weeks := 0;
for i := 1 to 31 do
begin
   try
     Convert_OK := True;
     MyDate := EncodeDate(yyyy, mm, i);
   except
     on EConvertError do
        Convert_OK := False;
   end;
   if Convert_OK then
     if (DayOfWeek(MyDate) = 7) or (Get_LastDay(yyyy,mm) = i) then {Åä¿äÀÏÀ̳ª ´ÞÀÇ ¸¶Áö¸·À̸é 1ÁÖ}
       Inc(weeks);
end;
Get_weeks := weeks;
end;






731   [À©µµ¿ìÁî API] TaskBarÀÇ ´Ù¾çÇÑ ±â´ÉÁ¦¾î  ±è¿µ´ë 2003/03/07 4991 1351
730   [½Ã½ºÅÛ] ¿ÀÁ÷ ÇϳªÀÇ ÇÁ·Î±×·¥¸¸ ½ÇÇà...  ±è¿µ´ë 2003/03/04 5019 1351
729   [½Ã½ºÅÛ] ÆÄÀÏ(µé)À» Ŭ¸³º¸µå·Î º¹»çÇÏ¿© Ž»ö±â¿¡¼­ ºÙ¿©³Ö±â ÇÏ±â  ±è¿µ´ë 2003/04/10 5297 1350
728   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] StringGrid - multiline text  ±è¿µ´ë 2003/03/07 5779 1349
727   [À©µµ¿ìÁî API] µ¨ÆÄÀÌ¿¡¼­ ½Ã°£À» ±â´Ù¸®´Â ÇÔ¼ö  ±è¿µ´ë 2003/03/04 5867 1349
726   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Search and Select  ±è¿µ´ë 2004/08/03 5154 1348
725   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TStringGrid ÀμâÇÏ±â  ±è¿µ´ë 2003/03/07 5424 1347
724   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¸®½ºÆ®ºä¿¡¼­ µ¿ÀûÀ¸·Î Ä®·³»èÁ¦ÇÏ±â  ±è¿µ´ë 2003/03/05 5001 1347
723   [COM/OLE] À©µµ¿ìÁî "°Ë»ö: ÆÄÀÏ ¶Ç´Â Æú´õ" È­¸é  ±è¿µ´ë 2004/07/25 4829 1345
722   [½Ã½ºÅÛ] ³» ÇÁ·Î±×·¥ÀÇ ½ÇÇà ¿ì¼±¼øÀÇ ¹Ù²Ù±â  ±è¿µ´ë 2004/07/24 4947 1344
721   [COM/OLE] TWebBrowser ¿¡¼­ »õâÀ» ¿­¶§ cookie °øÀ¯µÇ°Ô ÇÏ±â  ±è¿µ´ë 2004/11/24 6576 1343
720   [½Ã½ºÅÛ] Windows NT ¿¡¼­ ÇÑ±Û NTÀÎÁö ¿µ¹® NTÀÎÁö ±¸ºÐÇÏ´Â ¹æ¹ý  ±è¿µ´ë 2003/03/04 5149 1343
719   [À©µµ¿ìÁî API] ¹ÙÅÁÈ­¸éÀÇ ¸ðµç â ÃÖ¼ÒÈ­ÇÏ±â  ±è¿µ´ë 2006/02/28 5579 1341
718   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Åõ¸íÇÑ Bitmaps ÀÎ¼â  ±è¿µ´ë 2003/03/07 5721 1340
717   [½Ã½ºÅÛ] DOS ¸í·É¾î ½ÇÇàÇÏ°í °á°ú ¹Þ¾Æ¿À±â (Win2k,XP)  ±è¿µ´ë 2004/08/03 5608 1339
716   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Æû¿¡ ÀÚ¼®È¿°ú ÁÖ±â (Delphi 6 ÀÌÇÏ)  ±è¿µ´ë 2005/08/04 6361 1338
715   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ½ÇÇàÆÄÀÏ¿¡¼­ ÀÒ¾î¹ö¸° DFM ÆÄÀÏ »Ì¾Æ³»±â  ±è¿µ´ë 2004/08/17 5008 1338
714   [½Ã½ºÅÛ] CD-ROM ¹® ¿­±â/´Ý±â  ±è¿µ´ë 2003/03/04 4730 1338
713   [À©µµ¿ìÁî API] ¼¼·Î ŸÀÌÆ²¹Ù ¸¸µé±â  ±è¿µ´ë 2004/08/04 4896 1337
712   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¹®ÀÚ¿­ÀÇ ¾Ïȣȭ(Password ó¸®) & INI ÆÄÀÏ  ±è¿µ´ë 2003/03/06 5864 1337
711   [½Ã½ºÅÛ] IP address ¹Ù²Ù±â  ±è¿µ´ë 2003/03/07 5351 1336
710   [½Ã½ºÅÛ] System, User, GDI Resource  ±è¿µ´ë 2003/03/07 4591 1334
709   [µ¥ÀÌÅͺ£À̽º] DB±×¸®µå Row Height¸¦ Á¶ÀýÇÒ ¼ö ÀÖ´Â ÄÞÆ÷³ÍÆ®  ±è¿µ´ë 2003/03/05 5849 1334
708   [µ¥ÀÌÅͺ£À̽º] Save DBGrid To Excel  ±è¿µ´ë 2003/03/06 6027 1333
707   [À©µµ¿ìÁî API] ÇÁ¸°ÅÍ ½ºÇ®·¯¿¡ ´ë±âÁßÀÎ jobÀÇ ¼ö  ±è¿µ´ë 2003/03/04 4531 1333
706   [½Ã½ºÅÛ] Á¶ÇÕÁßÀÎ ÇÑ±Û ¾ò±â  ±è¿µ´ë 2004/09/06 5986 1332
705   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] StringGridÀÇ Áß°£¿¡ Á¦¸ñ Cell µÎ±â  ±è¿µ´ë 2003/03/07 5278 1332
704   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] DateTimePicker ÀÇ Ç¥½ÃÇü½Ä(format) ¹Ù²Ù±â  ±è¿µ´ë 2003/03/04 6204 1331
703   [COM/OLE] TWebBrowser¿¡ Á÷Á¢ HTML ¼Ò½ºÄÚµå ³Ö±â  ±è¿µ´ë 2004/12/26 6396 1330
702   [½Ã½ºÅÛ] Sleep Áß¿¡µµ ŸÀÌ¸Ó À̺¥Æ® ¹ß»ý½ÃŰ±â  ±è¿µ´ë 2004/08/09 5744 1330
701   [½Ã½ºÅÛ] PrintScreen ۰¡ ´­·È´ÂÁö °Ë»çÇÏ±â  ±è¿µ´ë 2003/03/04 4270 1330
700   [³×Æ®¿÷/ÀÎÅͳÝ] Internet¿¡ ¿¬°áÁßÀÎÁö ¿©ºÎ¸¦ ¾Ë·Á¸é...  ±è¿µ´ë 2003/03/04 5171 1330
699   [½Ã½ºÅÛ] À©µµ¿ìÁî »ç¿ëÀÚ °èÁ¤ Á¤º¸ ±¸ÇÏ±â  ±è¿µ´ë 2004/08/03 5149 1328
698   [À©µµ¿ìÁî API] À©µµ¿ìÁî Ž»ö±â¿ÍÀÇ ¿¬µ¿  ±è¿µ´ë 2003/03/04 5482 1328
697   [½Ã½ºÅÛ] ÇÁ¸°ÅÍÀÇ "¿ëÁö °ø±Þ" ¸®½ºÆ® ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 4620 1327
696   [À©µµ¿ìÁî API] ÆûÀÇ ÃÖ´ë/ÃÖ¼ÒÈ­ ¸·±â  ±è¿µ´ë 2003/03/06 4943 1327
695   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] WMF ¸¦ BMP ·Î º¯È¯ÇÏ±â  ±è¿µ´ë 2003/03/07 4316 1326
694   [À©µµ¿ìÁî API] ÀÛ¾÷Ç¥½ÃÁÙÀÌ ÀÚµ¿ ¼û±èÀÎÁö °Ë»ç  ±è¿µ´ë 2003/03/04 5035 1326
693   [À©µµ¿ìÁî API] Űº¸µåÀÇ ÀÓÀÇŰ ¹ß»ý  ±è¿µ´ë 2003/03/04 5213 1326
692   [À©µµ¿ìÁî API] µµ±¸¸ðÀ½ Bar´Â ¾î¶»°Ô ¸¸µå´ÂÁö...  ±è¿µ´ë 2003/03/04 4692 1325

[1][2][3][4][5][6] 7 [8][9][10]..[25] [´ÙÀ½ 10°³]
 

Copyright 1999-2019 Zeroboard / skin by zero