ตัดเครื่องหมาย - ออกจากเลขบัตรประจำตัวประชาชน

CID: Left([CIDwith-],1) & Mid([CIDwith-],3,4) & Mid([CIDwith-],8,5) & Mid([CIDwith-],14,2) & Right([CIDwith-],1)

ติดตั้ง VB ไม่ได้

คลิกปุ่ม Start >> run ป้อน regedit แล้ว OK
แล้วเข้าไปแก้ Registry

HKEY_LOCAL_MACHINE >> SOFTWARE >> MICROSOFT >> WINDOWS NT >> CURRENT VERSION >> perlib

ดับเบิ้ลคลิก เพื่อแก้ไข Disable Performance Counters จาก 1 ให้เป็น 0

จากนั้น Restart Task หรือ Restart Windows

เปิด Folder ต่างๆของ Windows ผ่านทางคำสั่ง Run

พิมพ์คำสั่งเหล่านี้ในกล่อง Run แล้วกด Enter(หรือคลิกตกลง)
(หมายเหตุ ไม่ต้องใส่ shell: นำหน้าก็ได้ครับ)

• shell:Common Programs
• shell:Favorites
• shell:My Video
• shell:System
• shell:CommonVideo
• shell:LocalizedResourcesDir
• shell:Cookies
• shell:My Pictures
• shell:Cache
• shell:AppData
• shell:My Music
• shell:InternetFolder
• shell:Profile
• shell:Start Menu
• shell:Common AppData
• shell:ConnectionsFolder
• shell:Administrative Tools
• shell:PrintersFolder
• shell:ProgramFiles
• shell:Common Startup
• shell:ControlPanelFolder
• shell:SendTo
• shell:ResourceDir
• shell:ProgramFiles
• shell:PrintHood
• shell:CD Burning
• shell:Common Start Menu
• shell:Templates
• shell:Programs
• shell:Recent
• shell:Desktop
• shell:CommonPictures
• shell:RecycleBinFolder
• shell:Common Templates
• shell:Startup
• shell:Common Desktop
• shell:NetHood
• shell:Common Administrative Tools
• shell:SystemX86
• shell:History
• shell:Common Documents
• shell:Local AppData
• shell:Windows
• shell:Fonts
• shell:Personal

วิธีฟอร์แมท USB Drive => 4 GB. เป็น FAT

จะ Format USB Drive ที่มีขนาด 4 GB. ในรูปแบบ FAT ได้อย่างไร

---

1. สำรองข้อมูลทั้งหมดใน USB Drive (เช่น:- เกมส์, เพลง, วิดีโอ).
2. เรียกใช้ Command Prompt. (คลิก Start > Run > พิมพ์ "cmd" > คลิก ตกลง หรือกด Enter)
3. พิมพ์คำสั่ง "format x: /FS:fat" ค่า x ในที่นี้คือ Drive ของ USB ในเครื่อง
4. เมื่อตัวเลือการ Format ถามถึงขนาดบล็อค 64kb ตอบตกลง
5.เมื่อฟอร์แมทเเรียบร้อยก็สามารถ นำข้อมูลสำรองกลับได้ครับผม

วิธีสร้างปุ่ม Show Desktop เอง จาก Notepad

บางครั้งปุ่ม Show Desktop หาย(ถูกลบไป?) เราสามารถสร้างไหม่เองจาก Notdpad ดังนี้

1.เปิด Notepad
2.พิมพ์ข้อความ

[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktop

3.บันทึกเป็นประเภท All Files
4.หลังชื่อที่เราตั้ง ใส่นามสกุลเป็น .scf

วิธีที่จะแสดงภาพเคลื่อนไหวใน desktop

1.Download ไฟล์ที่ชื่อ gif89.dll มาวางไว้ใน C:\windows\system32\
2.คลิก Run พิมพ์ regsvr32 c:\windows\system32\giff89.dll เพื่อลงทะเบียนไฟล์ giff89.dll ให้ windows รู้จัก
3.ตั้งค่า background ของ Desktop ด้วยภาพ Animege เช่นไฟล์นามสกุล gif (*.gif)

เทคนิคการค้นหา serial ใน Google

คัดลอกจาก http://www.oknation.net/blog/thitiporn/2008/09/23/entry-1

"94FBR" เป็นเทคนิคพิเศษสำหรับการจะค้นหา Serial ของโปรมแกรม

ในเวป www.google.com

พิมพ์ชื่อโปรแกรมที่ต้องการหา เช่น "photoshop" แล้วเว้นวรรคและตามด้วย "94FBR"

ตัวอย่าง เช่น photoshop 94FBR

หรือ ACDSee 10 Photo Manager 94FBR

ลงใน Google แล้ว Search จะพบlink ที่ให้ Serial ที่ต้องการออกมา

Tip.นี้ได้มานานแล้วพอดีค้นเจอใน Favorites เลยนำมาเล่าสู่กัน

เครดิต : คุณบอม

การแก้ปัญหา Can't find installable ISAM ของโปรแกรม Ms-Access

1 หาไฟล์ชื่อ mstext35.dll(จากเครื่องฯอื่น ที่ใช้ Ms-Access แล้วไม่พบปัญหานี้) เมื่อพบแล้วให้ Copy มา Paste ลงใน C:\Windows\System32

2 คลิ้กที่ Start แล้วคลิ้กที่ Run

3 เมื่อ Dialog Run ปรากฏขึ้น จะปรากฏช่องรายการ Open ในช้องรายการดังกล่าวนี้ ให้พิมพ์คำสั่ง ตามข้อความดังนี้
regsvr32 C:\windows\system32\mstext35.dll
แล้วคลิ้กที่ OK (หรือ ตกลง) จากนั้น Windows จะเริ่มกระบวนการ Update Registry

4 เมื่อกระบวน Update Registry เสร็จเรียบร้อยดี (คือไม่มีปัญหาใดๆ) คุณก็น่าจะใช้งาน Ms-Access โดยไม่มีปัญหาในเรื่อง .... ISAM ....

หมายเหตุ คัดลอกจาก เวปของกระทรวงสาธารณสุข

ติดตั้ง Office 97 แล้วฟ้องว่า ไม่สามารถเริ่มต้นกลุ่มงานหรือหน่วยความจำไม่พอ

อรโดนลักหลับ ชายนิรนามของอร
ปากดี อีโอ๋ ไอ้ไก่ ลุงชา
บาปสวาท นายทศ คนขับรถ
เมียเพื่อนขายตัว
ครั้งแรกของหนูโดนรุม3....
แอบดูเมียโดนข่มขืน
เจ้าสาวโดนรุมโทรม...

หา Standard modem ไม่เจอใน Windows Xp

1.ค้นหาไฟลชื่อ MDMGEN.IN_ ในคอมพิวเตอร์ของคุณ(เป็นไฟล์ที่สร้างขึ้นระหว่างติดตั้ง Windows - บางเครื่องอาจจะถูกลบไปแล้วหลังติดตั้ง Windows เสร็จสิ้น ต้องหาโหลดจาก web หรือจากแผ่นติดตั้ง Windows)
2.คัดลอกไฟล์ MDMGEN.IN_ ไปไว้ที่ตำแหน่งอื่น
3.เปลี่ยนชื่อ MDMGEN.IN_ เป็น MDMGEN.CAB
4.แตกไฟล์ MDMGEN.CAB เพื่อที่จะได้ไฟล์ mdmgen.inf
5.คัดลอกไฟล์ mdmgen.inf ไปไว้ที่ C:\WINDOWS\inf
6.สามารถหา standard modem type ได้ตามปกติ
หมายเหตุ ถ้าใน View ของ Folder option ตั้งค่าเป็ย Do not show hidden files and folders อาจมองไม่เห็นโพลเดอร์ INF

การแก้ไขปัญหาคอมพิวเตอร์

คัดลอกจาก

http://www.bloggang.com/viewdiary.php?id=mydog&month=09-2007&date=21&group=2&gblog=2

การแก้ไขปัญหาคอมพิวเตอร์

สำหรับ WIndow XP ลงโปรแกรมไม่ได้ และบอกว่าต้องการ Autoexec.nt

โหลดข้างล่างแล้วไป Unzip ลงคอมมีให้เลือก Win XP home, pro, 2000

Autoexec.nt


++++++++++++++++++++++++++++++++++


Desktop เปลี่ยนภาพไม่ได้


hkey_current_user\software\microsoft\windows\currentversion\policies <---- ลบตัวนี้ครับ ++++++++++++++++++++++++++++++++++ System Restore หายไปจากเครื่อง วิธีเอากลับมา


Start --> RUN --> %SystemRoot%\system32\restore\rstrui.exe --> OK


++++++++++++++++++++++++++++++++++


Start > Run หายไป

copy ข้างล่างนี้ ลง Notepad แล้ว save เป็น restore run.reg

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoRun"=dword:00000000

double-click ที่ restore run.reg ตอบ OK

เครดิต ; คุณ Lucky992


++++++++++++++++++++++++++++++++++


การลบไฟล์ที่ไม่จำเป็นออกจากเครื่องคอมพิวเตอร์


1. การลบไฟล์ที่ "Temp"

Start-->Run-->%Temp%

จากนั้นก็ทำการลบไฟล์ที่ลบได้ออกไป ส่วนที่ลบไม่ได้ไม่เป็นไรครับ


2. การลบไฟล์จากการใช้อินเตอร์เน็ต

เปิดเว็บเพจ-->Tool-->Internet Option-->General

หรือ คลิกขวาที่ไอคอน IE-->Properties-->General

2.1 จากนั้นกดที่ Delete File-->ติ๊ก Delete all...-->OK

2.2 Delete Cookies...-->OK ถ้าลบแล้วเว็บที่ใช้การ Log in ต้อง Log in ใหม่


3. การลบไฟล์หลังจากการ System Restore จะมีโปรแกรมบางตัวถูกถอนออกไปไว้ที่ System Volume Information

เปิด My Computer-->Tool-->Floder Option...-->Viwe

3.1 เลือก Show Hidden File and Floder

3.2เอาเครื่องหมายที่ Hide protected and operating system file (Recommended) ออก

3.3 กด Apply-->OK

3.4 จากนั้นก็ทำการลบไฟล์ใน System Volume Information ที่ลบได้ทิ้งไป


++++++++++++++++++++++++++++++++++


error ''80072efd''


เคยเจอ error ''80072efd'' เหมือนกัน ไม่แน่ใจว่าจะมาจากสาเหตุเดียวกันหรือไม่ แต่สาเหตุของผมมาจาก mcafee 8.0 ได้บล็อก พอร์ต 80 ไว้
วิธีการแก้ของผมคือ เปิด VirusScan Console ขึ้นมาครับ จากนั้นดับเบิ้ลคลิก Access Protection แล้ว clear check box ของพอร์ต 80 ออกครับ เท่านี้ก็เล่น msn ได้แล้วครับ
จากคุณ : kit * * *

1.ไปที่ Start (ตรงซ้ายล่างของจอ)
2.เลือก Run... (ที่เป็นรูปกล่องสี่เหลี่ยม)
3.พอกดปุ๊บ มันจะมีช่องให้เราพิมพ์ เราก็พิมพ์ลงไปว่า
regsvr32 softpub.dll
4.พอพิมพ์ไปแล้ว ก็กด OK รอจนได้ succeeded เพียงเท่านี้ ก็จะเล่นเอ็มได้แว้วววววววววววว
จากคุณ : เด็กชล * * *

เข้า command prompt

(Start -- Run -- พิมพ์ cmd -- กด OK)

พิมพ์คำว่า netsh winsock reset กด enter รอจนได้ Successfully .....

พิมพ์คำว่า netsh firewall reset กด enter รอจนได้ Successfully .....

พิมพ์ exit กด Enter แล้วก็ reboot เครื่องคอมพ์ฮะ


++++++++++++++++++++++++++++++++++


เข้า Folder ไม่ได้

ขั้นแรกก็ต้องทำให้เมนูใน Folder option มี Security เพิ่มขึ้นมาก่อน

1.เปิดไดรว์ D > Tools> Folder Options...> แท็บ View
บรรทัดสุดท้ายให้ยกเลิกการติ๊กหน้า Use simple file sharing (Recommended) > กด OK
เสร็จแล้วเมื่อคลิกขวาที่โฟลเดอร์ เลือก Properties
จะมีแท็บ Security เพิ่มมาอีกหนึ่งแท็บ (ปกติจะไม่มี)

2.คลิกขวาที่ Folder D:\Driver abc-Computer\abc (10) Asrock P4I45Gx_PE
เลือก Properties

3.เลือกแท็บ Security จะมีข้อความเตือน ให้คลิก OK

4.คลิก Advanced แล้วคลิกแท็บ Owner

5.ในช่องรายการชื่อ (Name) คลิก
Administrator ......
Administrators .....
ทำเครื่องหมายในช่อง Replace owner on subcontainers and objects

6.คลิก OK ตอบ Yes เมื่อมีข้อความเตือน

7.คลิก OK เป็นอันจบกระบวนการ


++++++++++++++++++++++++++++++++++++


ทริค เพิ่มความเร็วให้ win xp 10-15%
สำหรับคนที่รู้แล้ว ดูไว้ก็ไม่เสียหาย เพราะมันอาจจะเป็นประโยชน์สำหรับคนที่ยังไม่รู้ครับใ ช้ เฉพาะ win xp นะครับ

1.คลิกขวาที่ my computer เลือก property ไปที่ advance เลือก setting ตรง
performance

2.ตรงช่องที่มีเครื่องหมายกาถูก ให้เลือก ตามนี้ นับจากล่างสุดนะ ช่องที่ 1/2/3/6 แล้วกด ok

3.เลือก setting ตรง start up and recovery กาถูกออกให้หมดเลย จะทำให้boot เร็วขึ้น30วิ และแก้ปัญหาที่เครื่งชอบรีสตาร์ทเอง

4. กลับมาที่หน้า advance เลือก error reporting เลือก disable เพื่อตัดปัญหาพวก report ผลุบๆโผล่ๆ จะให้มันฟ้องเฉพาะปัญหาที่เป็นปัญหาใหญ่ หรือรุนแรงเท่านั้น ปัญหาเล็กๆน้อยๆที่ไม่มีผลกระทบกับเครื่องไม่ต้องให้ มันฟ้อง

5.ไปที่หน้า restore คลิก turn off

6.เสร็จแล้วสำหรับ การปรับ property ของ my computer ต่อไป msconfig

7.ไปที่ start>run พิม msconfig.exe

8. ไปที่ service เลือกสิ่งที่ไม่ต้องการออก เช่น ไม่อยากให้ window มันอัพเดท ก้อเอาออกซะ ไม่มี wireless ก้อเอา ออกซะเป็นต้น ผมเอา wireless/automatic update window/WMI Performance ออก3อัน

9.ไปที่ start up เลือกโปรแกรมที่ไม่อยากให้มันรันตอนเปิดเครื่องออก จะได้บูทเร็วขึ้น จบการแก้
config

10.ไปที่ start >run พิม regedit ไป แก้ รีจิสเติร์มั่งทีนี้

11.คลิกที่ แล้วคลิกที่โฟล์เดอร์ Desktop จะปรากฎหน้าต่างทางขวามือขึ้นมา คลิกขวาที่ HungAppTimeout เลือก Modify ได้หน้าต่าง Edit String เปลี่ยนค่าเป็น 1000 คลิก O.K.

12.ลดเวลา การเปิด เมนู start คลิกขวา MenuShowDelay เลือก Modify จะปรากฏหน้าต่าง Edit String เปลี่ยนค่าเป็น 0

13.เร่งสปีด Shutdown เร็วขึ้น 4 เท่า คลิก คลิกที่โฟล์เดอร์ของ Control >จะได้หน้าต่างทางขวามือ คลิกขวาที่ WaitToKillServiceTimeout เลือก Modify ที่หน้าต่าง Edit String เปลี่ยนค่าเป็น 5000 คลิก O.K.

14.เพิ่มความเร็วในการเปิดหน้าต่าง โดยการลบค่าการเข้าไปเช็คไฟล์ต่างๆที่สะสมอยู่
คลิก Start > Run > พิมพ์ regedit คลิก O.K. จะได้หน้าต่าง Registry Editor คลิก คลิกขวาที่ >{D6277990-4C6A-11CF-8D87-00AA0060F5BF} แล้วเลือกคำสั่ง Delete ลบค่านี้ทิ้งไป จะปรากฏหน้าเล็กๆ คลิก o.k.

15.คลิกที่ Parameters คลิกขวาตรงพื้นที่ว่างด้านขวาดังภาพ เลือกคำสั่ง New > DWORD Value ตั้งซื่อว่า MTU แล้วดับเบิ้ลคลิกเข้าไปที่ DWORD นี้ จะปรากฏหน้าต่าง Edit DWORD Value คลิกเลือก Decimal ที่ช่อง Value data ใส่ค่า 576 ลงไป แล้วคลิก o.k.




ทำปุ่ม Shutdown ใน Windows XP

คลิกขวาที่ Desktop>New>Shortcut
พิมพ์คำว่า Shutdown -s -t 00
OK แล้วไปเปลี่ยนไอคอนกันเองนะครับ



ทำปุ่ม Restart ในวินโดวส์

คลิกขวาที่ Desktop>New>Shortcut
พิมพ์คำว่า Restart -r -t 01
แล้วก็เปลี่ยนไอคอนกันเองนะครับ


เทคนิคทำให้เครื่องไม่แฮงค์บ่อยและShutdown เร็วขึ้น ในวินโดวส์ XP

1. Start >Run>พิมพ์คำว่า Regedit>OK
2. คลิกที่คำว่า HKEY_CURRENT_USER
3. Controlpanal>Desktop
4. จะได้หน้าต่างด้านขวามือ แล้วให้แก้ตามนี้
5. ดับเบิ้ลคลิกที่ AutoEntask>เปลี่ยนเป็นเลข 1 (ทำให้เครื่องไม่แฮงค์บ่อย)
6. ดัลเบิ้ลคลิกที่ HungAPPtimeOut เปลี่ยนเป็นเลข 2000 (เปลี่ยนค่าให้เป็น Licence Windowsแท้)
7. ดับเบิ้ลคลิกที่คำว่า Wait to kill เป็น 200 (ทำให้ Shutdown เร็วขึ้น


ยกเลิก Welcom Screen ตอนบู๊ตเข้าวินโดวส์ XP

1.Start>Setting>ControlPanal>User Account
2.คลิกตรงที่ Chang The Way User Logon or Off
3. นำเครื่องหมายถูกตรงคำว่า Use the Welcom Screen ออก


เทคนิคการทำตัวอักษรให้คมชัดใน Windows XP

สำหรับท่านที่เคยปรับแต่งแล้วก็ขออภัยนะครับ
สำหรับท่านที่ยังไม่เคยปรับแต่งสามารถทำตามได้เลยครับ
1. คลิกขวา ที่ Desktop>Property
2.Apperance>Effects...
3. เปลี่ยน Standard ใน Use the following method to smooth edges of screen fonts: เป็นคำว่า
Clear Type
4.OK
5.ลองสังเกตุว่าตัวอักษรที่หน้าจอของเราดูเหมือนมีเงา
ขึ้นมาหรือไม่
7. ตัวหนังสือของเราน่าใช้ขึ้นเยอะเลยนะครับ
ขอให้สมาชิกสนุกกับการปรับแต่งวินโดวส์นะครับ


การปิดบริการ Security Center ของวินโดว์ XP

บ่อยครั้งที่ Security Center สร้างความรำคาญให้กับเรา
เวลา ที่ชอบแสดงคำว่า Your Computer Must be Risk แปลว่าเครื่องคอมพิวเตอร์ของคุณมีความเสี่ยงในการปิด บริการต่างๆ เช่น AutoUpdate,Virus Protection
Firewall และอื่นๆ ซึ่งแม้ว่าเราจะไปปิดใน MS-Config แล้วก็ตาม ก็ไม่สามารถที่จะปิดการบริการส่วนนี้ได้ วันนี้จึง
มีเทคนิคในการปรับแต่ง มาเสนอครับ ขึ้นตอนมีดังนี้
1.Start>Control Panal>Administrative Tools
2. เลือก Service
3. คลิกขวาที่ Security Center เลือก Stop (เพื่อปิดที่ Task Bar)
3. คลิกขวาที่ Security Center อีกครั้ง เลือก Property
4. เปลี่ยน Startup Type เป็น Disabled
เท่านั้นก็เรียบร้อยแล้วครับ


ACDSee ชอบรวนแก้ง่ายๆครับ


ไปดูว่า มันไปเก็บ Database ไว้ที่ไหน ตามไปลบข้างในทิ้งให้หมด แค่นี้ก็เรียบร้อย

ไป ที่ เมนูบาร์ กดที่ Database > Export ดูว่ามันเก็บไว้แถวๆไหน ตามไปหา โฟลเดอร์ Default ลบข้างในทิ้งให้หมด ไม่ต้องกลัวครับ เดี๋ยวมันจะสร้างไฟล์ใหม่ที่สมบูรณ์มาแทน เสร็จแล้วครับ

อย่าง 7.0 ของผมอยู่ที่ C:WINDOWSApplication DataACD SystemsCatalogs70Default

ถ้าไม่หายอีก ลบ C:WINDOWSApplication DataACD Systems ทั้งโฟลเดอร์เลยครับ คราวนี้จะเหมือนไม่เคยใช้เลย หายแน่ๆ ฮ่าๆๆๆ


fatal error error-code:1/-3/10900 see doc#5305

ลงwindows medie piayer11แล้วเปิดneroกับเปิดดูโปรแกรมอื่นๆที่ใช้ดูรูปไม่ได้ครับ
พอ เปิดneroแล้วมันฟ้องว่า fatal error error-code:1/-3/10900 see doc#5305แล้วเปิดไฟล์รูปก็เป็นเหมื่อนกันครับ เพิ่งจะลงมีเดีย11ใหม่นะครับเลยไม่รู้ว่าจะทำอย่างไรนะครับ

http://www.msfn.org/board/index.php?act=Print&client=printer&f=80&t=98365

เข้าไปที่ HKEY_LOCAL_MACHINE\SOFTWARE\Ahead\Installation\Families\Nero 7\Info

แล้วแก้ serial โดยการ gen ใหม่สิ

Public Function FormatAdr(Adr)
If IsNull([Adr]) Then
FormatAdr = "0000000"
ElseIf Not IsNumeric(Val(Adr)) Then
FormatAdr = Adr
Else
FormatAdr = Format(Val(Adr), "0000") & IIf(InStr(Adr, "/") = 0, Format(0, "000"), Format(Right(Adr, IIf(InStr(Adr, "/") = 0, 0, Len(Adr) - InStr(Adr, "/"))), "000"))
End If
End Function

Function ตรวจสอบความถูกต้องของเลขประจำตัวประชาชน (VB - VBA)

Function LastDigitCID(CID)
LastDigitCID = Right(11 - (Mid([CID], 1, 1) * 13 + Mid([CID], 2, 1) * 12 + Mid([CID], 3, 1) * 11 + Mid([CID], 4, 1) * 10 + Mid([CID], 5, 1) * 9 + Mid([CID], 6, 1) * 8 + Mid([CID], 7, 1) * 7 + Mid([CID], 8, 1) * 6 + Mid([CID], 9, 1) * 5 + Mid([CID], 10, 1) * 4 + Mid([CID], 11, 1) * 3 + Mid([CID], 12, 1) * 2) Mod 11, 1)
End Function

Function CIDok(CID) As Boolean
Dim i As Integer, NumDigitCID As Boolean
If IsNull(CID) Then
CIDok = False
ElseIf CID = "" Then
CIDok = False
ElseIf Len(CID) <> 13 Then
CIDok = False
Else
For i = 1 To Len(CID)
If IsNumeric(Mid$(CID, i, 1)) Then
NumDigitCID = True
Else
NumDigitCID = False
Exit For
End If
Next
CIDok = NumDigitCID
End If
If CIDok = True Then
If LastDigitCID(CID) = Right(CID, 1) Then
CIDok = True
Else
CIDok = False
End If
End If
End Function

Function คำนวนอายุ (VB - VBA)

Function CalAge(Birthdate)
Dim ปีเต็ม As Integer, เดือนเต็ม As Integer, ผลต่างวันที่ As Integer

If IsNull(Birthdate) Then
' IsNull() กับ Nz() = "" มีค่าเท่ากัน
CalAge = ""
'*** ระวัง ค่าว่างนำไปจัดการต่ออาจเกิดปัญหา เปลี่ยนเป็นอย่างอื่น?
ElseIf Birthdate > Now() Then
CalAge = "ยังไม่เกิด" ‘ *** ระวัง เป็นข้อความนำไปคำนวนแบบตัวเลขไม่ได้ เปลี่ยนเป็นอย่างอื่น?
ElseIf Birthdate <= Now() Then
เดือนเต็ม = DateDiff("m", Birthdate, Now())
'อายุนับตั้งแต่เกิดนับเป็นเดือน เศษของเดือนนับเป็น 1 เดือน
ผลต่างวันที่ = DateDiff("d", DateAdd("m", เดือนเต็ม, Birthdate), Now())
'หาค่าวันที่ที่อายุครบเต็มตามเดือนที่คำนวนได้ ลบจาก ปัจจุบัน
If ผลต่างวันที่ < 0 Then
'ถ้ามีค่า < 0 แปลว่า มีการนับเศษของเดือนเป็น 1 เดือน
เดือนเต็ม = เดือนเต็ม - 1
'ลดการนับเดือนเต็มลงจึงจะถูกต้อง
ผลต่างวันที่ = DateDiff("d", DateAdd("m", เดือนเต็ม, Birthdate), Now())
'คำนวนผลต่างวันที่ใหม่อีกครั้ง
End If
'*ผลต่างวันที่เป็นจำนวนวันที่หักอายุเต็มเดือนออกแล้ว*
ปีเต็ม = Int(เดือนเต็ม / 12)
'อายุปีเต็ม นับเฉพาะค่าที่เป็นจำนวนเต็มของ (เดือนเต็ม/12)
เดือนเต็ม = เดือนเต็ม Mod 12
'เปลี่ยนเป็นเดือน ที่หักอายุเต็มปีออก คือนับเฉพาะค่าที่เป็นเศษของ (เดือนเต็ม/12)
CalAge = ปีเต็ม & "-" & เดือนเต็ม & "-" & ผลต่างวันที่
End If

End Function

รูปแม่น้องอ้อม

bookmark

ข้อมูลสรุปนี้ไม่พร้อมใช้งาน โปรด คลิกที่นี่เพื่อดูโพสต์

ลบ Excel password

Sub PasswordBreaker()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If

Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next

End Sub