กระทู้เก่าบอร์ด อ.Yeadram
884 5
URL.หัวข้อ /
URL
สอบถามเรื่องเทียบค่าเวลาครับ
ผมต้องการเทียบเวลาจากText6 ถ้าเวลา>= 8โมงเช้า หรือ <= 2 ทุ่ม
ผมอยากให้ Text23 เท่ากับค่า A
และถ้าเวลา< 8โมงเช้า หรือ > 2 ทุ่ม
ผมอยากให้ Text23 เท่ากับค่า B
ผมเขียนได้ดัง code ครับแต่ผลลับมันไม่ขึ้นครับอยากทร่าบว่าผมผิดตรงไหนครับ
ขอความกรุณาด้วยครับ ขอบคุณครับ
Private Sub Text23_GotFocus()
Dim Tim As Variant
Dim VVV As String
Tim = Text6.Value
If (Tim >= #8:00:00 AM#) Or (Tim <= #8:00:00 PM#) Then
VVV = "A"
ElseIf (Tim < #8:00:00 AM#) Or (Tim > #8:00:00 PM#) Then
VVV = "B"
Text23.Value = VVV
End If
End Sub
ผมอยากให้ Text23 เท่ากับค่า A
และถ้าเวลา< 8โมงเช้า หรือ > 2 ทุ่ม
ผมอยากให้ Text23 เท่ากับค่า B
ผมเขียนได้ดัง code ครับแต่ผลลับมันไม่ขึ้นครับอยากทร่าบว่าผมผิดตรงไหนครับ
ขอความกรุณาด้วยครับ ขอบคุณครับ
Private Sub Text23_GotFocus()
Dim Tim As Variant
Dim VVV As String
Tim = Text6.Value
If (Tim >= #8:00:00 AM#) Or (Tim <= #8:00:00 PM#) Then
VVV = "A"
ElseIf (Tim < #8:00:00 AM#) Or (Tim > #8:00:00 PM#) Then
VVV = "B"
Text23.Value = VVV
End If
End Sub
5 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R16093
ขอบคุณมากครับ เป๊ะเลยครับ
ขอขอบคุณอีกครั้งครับ
ขอขอบคุณอีกครั้งครับ
3 @R16094
รบกวนคุณ อีกครั้งครับ มัน Error แจ้งที่ CDate ครับต้องทำอย่างไรครับ
และก็มันเป็นค่า B ตลอดเลยครับเมื่อลองเปลี่ยนเวลาให้ไดตาม A แต่ก็ยังเป็น B ครับ
และก็มันเป็นค่า B ตลอดเลยครับเมื่อลองเปลี่ยนเวลาให้ไดตาม A แต่ก็ยังเป็น B ครับ
4 @R16095
ผมไม่ได้ลองนะครับ แต่เดาว่าน่าจะเป็นเรื่องของการใส่ค่าเวลาด้วย ไงซะใน Property ของ Text6 ที่ Format ให้กำหนดรูปแบบเป็น h:nn:ss กันเรื่องของรูปแบบข้อมูล และลองเปลี่ยนเป็นอย่างนี้ดูครับ
Dim Tim As Date
Dim VVV As String
Tim = Format(Text6.value, "h:nn:ss")
If (Tim >= #8:00:00 AM#) And (Tim <= #8:00:00 PM#) Then
VVV = "A"
Else
VVV = "B"
End If
Text23.value = VVV
Dim Tim As Date
Dim VVV As String
Tim = Format(Text6.value, "h:nn:ss")
If (Tim >= #8:00:00 AM#) And (Tim <= #8:00:00 PM#) Then
VVV = "A"
Else
VVV = "B"
End If
Text23.value = VVV
5 @R16096
ได้แล้วครับ
ขอขอบคุณอีกครั้งครับ
ได้แล้วครับ
ขอขอบคุณอีกครั้งครับ
Time: 0.2753s
Dim Tim As Date
Dim VVV As String
Tim = CDate(Text6.value)
If (Tim >= #8:00:00 AM#) And (Tim <= #8:00:00 PM#) Then
VVV = "A"
ElseIf (Tim < #8:00:00 AM#) Or (Tim > #8:00:00 PM#) Then
VVV = "B"
End If
Text23.value = VVV
แต่จริงๆแล้วหากมีแค่ 2 เงื่อนไขก็แบบนี้ก็พอครับ
Dim Tim As Date
Dim VVV As String
Tim = CDate(Text6.value)
If (Tim >= #8:00:00 AM#) And (Tim <= #8:00:00 PM#) Then
VVV = "A"
Else
VVV = "B"
End If
Text23.value = VVV