ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] µ{¦¡½X ¿@ÁY

[µo°Ý] µ{¦¡½X ¿@ÁY

¥»©«³Ì«á¥Ñ mark15jill ©ó 2015-8-16 16:38 ½s¿è

ªþ¥óµ{¦¡½X ¬O§_¥i¥H¦³®Ä²vªº¿@ÁY©O¡H
¬O¦³Ãö©ó ¤é´Á§PÂ_ªºµ{¦¡½X....
¦]¦¹ºØ¤èªk¤£¥Î¦Ò¼{¤G¤ë¬O§_¬°¶|¤ë(28¡B29)ªº³¡¤À
¥u¬Oµ{¦¡·|«Üªø
­Y§¹¦¨±N·|§Ë§¹¾ãµ{¦¡½X¤W¨Ó

[µ{¦¡¤Óªø¶W¹L½×¾Âªº­­¨î... ¥u¦n¥Îªþ¥ó]

»Ý¿@ÁY.rar (1.23 KB)

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2015-8-17 15:33 ½s¿è

¦^´_ 1# mark15jill
1.  ¤é´Á§PÂ_¬O§PÂ_¤°»ò¡A³o¬qµ{¦¡ªº¥Øªº¬O¤°»ò¡A¦n¤ï­n»¡©ú¤@¤U
2.  «Å§i»yªk¦³¿ù¡A³o¤£¬OVBA¦Xªkªº«Å§i
3.  ¥Î¨ìªº dtp¡Bd7labx¡A³o¨ÇµLªk±oª¾¤º®e¬O¤°»ò
4.  Function qqa µL¶Ç¦^­È¡AµLªk§PÂ_µ{¦¡¥Øªº

§Ú¥u¬O¸ô¹L¦Ó¤w¡A§A­nªºµª®×¥i¯à«Ü²³æ¡A¦ý¬O§A°Ý±o¤£¹ï¡C
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¥»©«³Ì«á¥Ñ mark15jill ©ó 2015-8-17 17:32 ½s¿è
¦^´_  mark15jill
1.  ¤é´Á§PÂ_¬O§PÂ_¤°»ò¡A³o¬qµ{¦¡ªº¥Øªº¬O¤°»ò¡A¦n¤ï­n»¡©ú¤@¤U
2.  «Å§i»yªk¦³¿ù¡A³o ...
stillfish00 µoªí©ó 2015-8-17 15:11



   ÁÂÁ¤j¤jªº¦^ÂÐ..
1.¦¹©«¥D­nªº¥Øªº¦b©ó ¿@ÁYµ{¦¡½X... ¦]¦b¤U¹ï©ó¿@ÁYµ{¦¡½X¯à¤O«Ü®t¡A·Q»¡¬O§_¦³¨ä¥L¤èªk¥i¥H¿@ÁY
2.dtp ¥D­n¬O ¤é´Á´¡¥óªº«Å§i  d7labx¬° labelªº«Å§i
3.»yªkªº³¡¥÷½Ð©¿²¤... ¦]³oªº½T¤£¬OVBAªº ... ¥u¬O·Q¸ß°Ý¿@ÁYªº¤èªk...
4.function qqa ¬°¦@¥Î°Æµ{¦¡½X°Ï°ì(¦³ÂIÃþ¦ü VBAªº °Æµ{¦¡)



¦b¤U¸ß°Ýªº¨ä¹ê«Ü²³æ...
µ{¦¡½X¿@ÁY
¶È¶È¦p¦¹¦Ó¤w...

¦Ü©ó¤@¶}©l»¡ªº¨º¨Ç  ¨ä¹ê¥u¬O·Q»¡ ¦pªG³o­Ó°ÝÃD¸Ñ¨M«á¡A§Ú·|±N¦¨«~(§¹¾ãª©µ{¦¡) ©ñ¤W½×¾Â¨Ñ°Ñ¦Ò...


ÁÂÁÂ

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 1# mark15jill
¥h°£         For maa = 1 To 12
¥H¤Î        For daa = 1 To 31
¦Óª½±µ¨Ï¥Î mma ¥H¤Î dda ¤§ÅܼơG
  1.         Select Case mma
  2.             Case 1
  3.                 Select Case dda
  4.                     Case 1
  5.                         dlab(0).Text = yya - 1 & "/" & 12 & "/" & 29
  6.                         dlab(1).Text = yya - 1 & "/" & 12 & "/" & 30
  7.                         dlab(2).Text = yya - 1 & "/" & 12 & "/" & 31
  8.                         dlab(3).Text = yya & "/" & mma & "/" & dda
  9.                         dlab(4).Text = yya & "/" & mma & "/" & dda + 1
  10.                         dlab(5).Text = yya & "/" & mma & "/" & dda + 2
  11.                         dlab(6).Text = yya & "/" & mma & "/" & dda + 3
  12.                     Case 2
  13.                         dlab(0).Text = yya - 1 & "/" & 12 & "/" & 30
  14.                         dlab(1).Text = yya - 1 & "/" & 12 & "/" & 31
  15.                         dlab(2).Text = yya & "/" & mma & "/" & dda - 1
  16.                         dlab(3).Text = yya & "/" & mma & "/" & dda
  17.                         dlab(4).Text = yya & "/" & mma & "/" & dda + 1
  18.                         dlab(5).Text = yya & "/" & mma & "/" & dda + 2
  19.                         dlab(6).Text = yya & "/" & mma & "/" & dda + 3
  20.                     Case 3
  21.                         .
  22.                         .
  23.                         .
  24.                     Case 31
  25.                          dlab(0).Text = yya & "/" & mma & "/" & dda - 3
  26.                          dlab(1).Text = yya & "/" & mma & "/" & dda - 2
  27.                          dlab(2).Text = yya & "/" & mma & "/" & dda - 1
  28.                          dlab(3).Text = yya & "/" & mma & "/" & dda
  29.                          dlab(4).Text = yya & "/" & mma + 1 & "/" & 1
  30.                          dlab(5).Text = yya & "/" & mma + 1 & "/" & 2
  31.                          dlab(6).Text = yya & "/" & mma + 1 & "/" & 3
  32.                 End Select
  33.             Case 2
  34.                 Select Case dda
  35.                         .
  36.                         .
  37.                         .
  38.         End Select
½Æ»s¥N½X
¸Õ¸Õ¬Ý¬O§_¹ï§A¦³À°§U¡H

TOP

¦^´_  mark15jill
¥h°£         For maa = 1 To 12
¥H¤Î        For daa = 1 To 31
¦Óª½±µ¨Ï¥Î mma ¥H¤Î ...
c_c_lai µoªí©ó 2015-8-17 21:14



    ÁÂÁ±zªº¦^ÂÐ
    ­è¦³¸ÕÅç¹L ­Y±Nfor °j°é²¾°£  ª½±µ¥Hselect case ¥Nªíªº¸Ü «h·|³y¦¨select case ªº°Ñ¼Æ¿ù»~(Ū¤£¨ìmaa or daa)
    ¶i¦Ó¾É­P«áÄòªº°Ñ¼Æ³£¦³°ÝÃD..

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 3# mark15jill
¦n§a¡A§Ú´NÁ¿¥Õ¤F¡C
§Úªº·N«ä¬O§A§¹¥þ¨S»¡©ú³o¬qµ{¦¡¬O¦b°µ¬Æ»ò
¦pªG¤µ¤Ñ§Aªº°ÝÃD¬O:
dtp ¬°¿é¤Jªº¤é´Á¡A±N¸Ó¤é»P«e¤T¤Ñ¡B«á¤T¤Ñªº¤é´Á©ñ¨ì dlab(0) ¨ì dlab(6)
¨º»ò§Ú´N¥i¥H«Ü§Ö¦a§i¶D§A¡A¥ÎDateadd´N¥i¥H«Ü§Ö°µ¨ì¡A
¦Ó¤£¬O¦A¥h¬Ý§Aªºµ{¦¡½XºCºC±À´ú¨ì©³­n°µ¬Æ»ò¥\¯à¡C
  1. Sub test()
  2.     For i = 0 To 6
  3.         dlab(i) = DateAdd("d", i - 3, CDate(dtp.Value))
  4.     Next
  5. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¥»©«³Ì«á¥Ñ mark15jill ©ó 2015-8-18 11:11 ½s¿è
¦^´_  mark15jill
¦n§a¡A§Ú´NÁ¿¥Õ¤F¡C
§Úªº·N«ä¬O§A§¹¥þ¨S»¡©ú³o¬qµ{¦¡¬O¦b°µ¬Æ»ò
¦pªG¤µ¤Ñ§Aªº°ÝÃD¬O: ...
stillfish00 µoªí©ó 2015-8-18 09:48

    ¤j¤j±z¦n....
Ãö©ó³o¬qµ{¦¡¬O°µ¬Æ»òªº
§Ú¦bµo©«®É´N¤w¸g¦³»¡©ú...
½Ð°Ñ¦Òµo©«®Éªº²Ä¤G¦æ¤å¦r©M...¬O¦³Ãö©ó ¤é´Á§PÂ_ªºµ{¦¡½X....
¦Ü©ó«e¤T¤Ñ§ò«á¤T¤Ñ
­Y¨Ì·Ó±z©Ò´£¨Ñªº¤½¦¡
·|³y¦¨
1.2¤ë¶|¤ë
2.«e¤@¦~ «á¤@¦~...

¦Ó§Ú©Ò¸ß°Ýªºµ{¦¡½X«h¬O ¤£¥Î¥H¤W¨âÂI©Ò´£ªº°ÝÃD
¦pªG³£¤£¦Ò¼{ §Úª¾¹D¬O¥i¥H¼g¦¨
For uu = -3 to 3
    dlab(uu+3).Text = yya & "/" & mma & "/" & dda+uu
next
'yya =¦~ : mma=¤ë : dda=¤é
³y¦¨±zªº§xÂZ ©êºp
[¤U¦¸ÃöÁäµü ¦b¤U·|¥Î¤j¬õ¦r¼Ð¥Ü ¥HÁקK³y¦¨§xÂZ ]

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 7# mark15jill
­Y¨Ì·Ó±z©Ò´£¨Ñªº¤½¦¡
·|³y¦¨
1.2¤ë¶|¤ë
2.«e¤@¦~ «á¤@¦~...

DateAdd("d",-1,"2015/3/1")  => 2015/2/28
DateAdd("d",-1,"2016/3/1")  => 2016/2/29
DateAdd("d",-1,"2016/1/1")  => 2015/12/31
DateAdd("d",1,"2014/12/31") => 2015/1/1
¦ó¨Ó°ÝÃD?
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_  mark15jill

DateAdd("d",-1,"2015/3/1")  => 2015/2/28
DateAdd("d",-1,"2016/3/1")  => 2016/2 ...
stillfish00 µoªí©ó 2015-8-18 13:24


To stillfish00¤j¤j...
    «ÜÁÂÁ±z¦h¦¸ªº«ü±Ð...
    ¦ý..
     ¦¹©«ªº¥D­n¥Øªº¦b©ó ¿@ÁYµ{¦¡½X...
     ±zªº¨º­Ó¤è¦¡ ¦pªG®M¥Î¦b§Ú¥Ø«e©Ò¼¶¼gªºµ{¦¡¤º(µ{¦¡Àô¹Ò¨Ã«Doffice excel vba)  ªº½T·|µo¥Í§Ú»¡ªº¨ººØ±¡§Î..(À³¸Ó¬O§Ú¾ÇÃÀ¤£ºë)
   
    ¦A¦¸·PÁ±z~

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¥»©«³Ì«á¥Ñ mark15jill ©ó 2015-8-18 17:28 ½s¿è

­ø...
§Ú¦Û¤v§ä¨ì¤£ºâ¤èªkªº¤èªk¤F
ÁöµM³o¼Ë¶È¶È´î¤Ö¤@¨Ç..
»Ý­n¦A§ä³W«ß¶i¦æ²Ä¤G¦¸¿@ÁY..

ÁÂÁ¦U¦ì¤j¤j
  1.                                 Case iia - 2
  2.                                     If dda = daa Then
  3.                                         dlab(0).Text = yymm & daa - 3
  4.                                         dlab(1).Text = yymm & daa - 2
  5.                                         dlab(2).Text = yymm & daa - 1
  6.                                         dlab(3).Text = yymm & daa
  7.                                         dlab(4).Text = yymm & daa + 1
  8.                                         dlab(5).Text = yymm & daa + 2
  9.                                         dlab(6).Text = yymm1 & 1
  10.                                     End If
½Æ»s¥N½X
¥i¥H¿@ÁY¦¨
  1.                                 Case iia - 2
  2.                                     If dda = daa Then
  3.                                         For das = 0 To 5
  4.                                             dlab(das).Text = yymm & daa + das - 3
  5.                                         Next
  6.                                         dlab(6).Text = yymm1 & 1
  7.                                     End If
½Æ»s¥N½X
¥Ø«e¬O¾ã²z¨ì¿@ÁY(part 1) ¤§«á ·Ç³Æ¦³¬Û¦Pªº¿@ÁYµ{¦¡½X´N­n¥á¥h°Æµ{¦¡...

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD