VB6 error with Left function

 วันนี้ผมวุ่นวายอยู่กับหน้าจอทั้งวัน อ่านโค๊ดเขียนโค๊ดแก้โค๊ด

สุดท้ายก็ได้เวลาทดสอบซะที พอเริ่มรันโปรแกรมแค่นั้นแหละครับ errror ครับท่าน กด debug ก็พบกับข้อความแจ้งเตือน Selection Fomula ไม่ถูกต้องซะงั้น

นึกขึ้นได้ว่าเคยเจอกรณีนี้บ้างแล้วเลยค้นดูในบล็อกนี้ แล้วก็รู้ว่า Crystal Report ใช้ Between ไม่ได้นะ มันต้องเป็น  In Date() ร่วมกับ To Date()

 

จัดการตามนั้นเรียบร้อย รันไปอีกก็เจออีกว่าต้องแยกวันที่ใหม่ โอเคแยกก็แยก ลองทดสอบโค๊ดด้านล่างนี้เพื่อแยกเดือน ออกมาดูผลลัพธ์

 

Dim txtMyDate As String
txtMyDate = "2014-05-21"
MsgBox Left(txtMyDate, 6, 2)

ทำไม? ทำไม? error อยู่นั่นแหละ ตูผิดตรงไหนเนี่ย
ก็แค่ให้แสดงเดือนจากวันที่ที่กำหนด "โดยตัดจากด้านซ้าย ตัวที่ 6 ไปอีก 2 ตัว"
ฮือๆๆๆ
เวรกรรม...



ตัดแบบนี้เขาไม่เรียกว่าตัดจากซ้ายไปกี่ตัวหรอกนะ เขาเรียกว่าตัดจากตำแหน่งไหน ไปกี่ตัว

 

เขาใช้ Mid() กันเว้ยเฮ้ย .\ /.