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?
