VB help

haiduong87

haiduong87

Baldur's Gate
Lão Làng GVN
ai có thể cho tui đoạn code để viết ngày tháng năm tính ra thứ ko ?
tui đang bí chỗ này !
ai giúp tui với !
 
Private Sub Command1_Click()
a = CDbl(Text1.Text)
'Ngày
b = CDbl(Text2.Text)
'Tháng
c = CDbl(Text3.Text)
'Năm
Select Case b
Case 1
x = 0
Case 2
x = 31
Case 3
x = 59
Case 4
x = 90
Case 5
x = 120
Case 6
x = 151
Case 7
x = 181
Case 8
x = 212
Case 9
x = 243
Case 10
x = 273
Case 11
x = 304
Case 12
x = 334
End Select
y = (c - 1) \ 4 + (c - 1) * 365
If c Mod 4 = 0 And b > 2 Then
ngay = y + x + a + 1
Else
ngay = y + x + a
End If
thu = ngay Mod 7
Select Case thu
Case 0
MsgBox ("Chu Nhat")
Case 1
MsgBox ("Thu Hai")
Case 2
MsgBox ("Thu Ba")
Case 3
MsgBox ("Thu Tu")
Case 4
MsgBox ("Thu Nam")
Case 5
MsgBox ("Thu Sau")
Case 6
MsgBox ("Thu Bay")
End Select
End Sub
tui nghĩ vậy mà sao nó tính sai ác !
bà con nhào dzô giúp đỡ đi !
 
Cái đoạn code của bạn hơi bị rối, có thể viết chú thích lên đó không? Ví dụ ở Text1, Text2, Text3 sẽ chứa giá trị gì mà bạn viết như vậy?
 
You must log in or register to reply here.
Back
Top