ช่วยด้วยครับผมเขียนโค๊ตต่อไปไม่ได้แล้วติดอย่างแรง
คือว่าผมต้องเขียนโปรแกรมคำนวณค่าโทรศัพท์ใน VBA Excelโดยมีโจทย์ดังนี้ 1.รับข้อมูลเป็นเวลาที่เริ่มโทรและเวลาที่วางสาย 2.ค่าโทรศัพท์คิดดังนี้ 2.1เวลา08.01-17.00 นาทีละ3บาท 2.2เวลา00.00-08.00และ17.01-24.00นาทีละ5บาท 2.3หากโทรคาบเกี่ยวในแต่ละช่วงเวลาให้แยกคิดตามแต่ละช่วงเวลา 2.4ไม่คิดค่าโทรข้ามวัน 3.แสดงผลใน label.caption=\"ข้อความ\" ฟอร์มที่ผมสร้างคือ textbox1= ชั่วโมงเวลาเริ่มโทร textbox2= นาทีเวลาเริ่มโทร textbox3= ชั่วโมงเวลาวางสาย textbox4= นาทีเวลาวางสาย label= ข้อความแสดงค่าโทร และนี่โค๊ตครับช่วยดูให้ทีครับ Option Explicit Private a As Integer Private b As Integer Private c As Integer Private d As Integer Private e As Integer Private f As Integer
Private Sub CommandButton1_Click() a = TextBox1 b = TextBox2 c = TextBox3 d = TextBox4 e = ((c - a) * 60) + (d - b)
If a >= 0 Or a <= 8 And b = 0 Then f = e * 5 Label3.Caption = f ElseIf a >= 17 And a <= 24 And b = 0 Then f = e * 5 Label3.Caption = f ElseIf a >= 8 And b >= 1 Or a <= 17 And b >= 1 Then f = e * 3 Label3.Caption = f
End If End Sub
|