Hãy giúp mình hoàn tất hàm nhằm trả về quý của năm nhập vô

[SA_DQ]

[B]Function Quy(Optional Dat As Date) As Byte[/B] 
 If Dat = 0 Then Dat = Date

[B]End Function[/B]

Dòng lệnh của ai ngắn & hiệu quả nhất sẽ có thưởng xị bàu đá!

 

[ThuNghi]

[B]Function Quy(Optional Dat As Date) As Byte[/B] 
 If Dat = 0 Then Dat = Date

[B]End Function[/B]

Dòng lệnh của ai ngắn & hiệu quả nhất sẽ có thưởng xị bàu đá!

Có phải là vậy không Bác.

Function Quy(Optional Dat As Date) As Byte
 If Dat = 0 Then Dat = Date
 iMonth = Month(Dat)
 iQuy = Int((iMonth + 2) / 3)
Quy = iQuy
End Function

 

[cadafi]

[B]Function Quy(Optional Dat As Date) As Byte[/B] 
 If Dat = 0 Then Dat = Date

[B]End Function[/B]

Dòng lệnh của ai ngắn & hiệu quả nhất sẽ có thưởng xị bàu đá!

Bác xem đoạn code em viết xem nhé:

Function Quy(Optional MyDate As String) As Byte
 If IsNull(MyDate) Then MyDate = Date
 Select Case Month(MyDate) / 12
 Case Is <= 0.25: Quy = 1
 Case Is <= 0.5: Quy = 2
 Case Is <= 0.75: Quy = 3
 Case Else: Quy = 4
 End Select
 End Function

Oh, post xong, thấy bài anh THUNGHI, nhìn lại thấy code mình củ chuối quá!

 

[cadafi]

Có phải là vậy không Bác.

Function Quy(Optional Dat As Date) As Byte
 If Dat = 0 Then Dat = Date
 iMonth = Month(Dat)
 iQuy = Int((iMonth + 2) / 3)
Quy = iQuy
End Function

To THUNGHI
Mạn phép rút gọn luôn code của anh nhé:

Function Quy(Optional Dat As Date) As Byte
If Dat = 0 Then Dat = Date
Quy = Int((Month(Dat) + 2) / 3)
End Function

Nhân đây cho em hỏi, Tại sao Optional Dat nếu bỏ trống, vẫn dùng điều kiện:
If Dat = 0..... mà không dùng If Isnull(Dat).....???

 

[Mr Okebab]

Ngắn thì còn có thể ngắn, tuy nhiên như thế nào là hiệu quả thì lại khó nói lắm, vì tùy vào các trường hợp thôi.
Sửa lại code xíu :

Function Quy(Optional Dat As Date) As Byte
    Quy = Int((Month(IIf(Dat = 0, Date, Dat)) + 2) / 3)
End Function

Vì vậy vẫn hơi thắc mắc, vì bác SA đố cơ mà.

Thân!

 

[SA_DQ]

Nhân đây cho em hỏi, Tại sao Optional Dat nếu bỏ trống, vẫn dùng điều kiện:
If Dat = 0..... mà không dùng If Isnull(Dat).....???

Vì ta ấn định biến kểu Date - Cũng có nghĩa là kiểu số

Nếu ấn định kiểu Varỉant thì xem thử macro sau sẽ rơi vô trường hợp nào:

Sub Quy0(Optional Dat )
   If IsNull(Dat) Then
      MsgBox ""
   ElseIf IsMissing(Dat) Then
      MsgBox "IsMissing"
   ElseIf Dat = 0 Then
      MsgBox "0"
   End If
   Dat = Date
End Sub

[B]Sub GoiQuy()[/B]
   Quy0
[B]End Sub[/B]

'* * * * '* * * *'
Mình cũng xin góp vui về hàm trên cái;

Quy = Choose(Month(Dat), 1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 4)

Xin các bạn tiếp tục, mình còn 1 phương án nữa cơ đấy!

 

[phamduylong]

Quy = Choose(Month(Dat), 1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 4)[/code]
Xin các bạn tiếp tục, mình còn 1 phương án nữa cơ đấy!

Góp thêm một hàm:

Function Quy(Optional Dat As Date) As Byte
If Dat = 0 Then Dat = Date
Quy = DatePart("q", Dat)
End Function

 

[SA_DQ]

Sửa tiếp cái hàm cuối của CaDaFi cái!

[B]Function Quy(Optional Dat As Date) As Byte [/B]
  If Dat = 0 Then Dat = Date 
  Quy = (Month(Dat) + 2) \ 3 
[B]End Function [/B]

 

[cadafi]

Thêm một cách nữa đây!

Function Quy(Optional Dat As Date) As Byte
If Dat = 0 Then Dat = Date
Quy = WorksheetFunction.RoundDown(Month(Dat) \ 3 + 0.75, 0)
End Function

 

[Mr Okebab]

Thêm một cách nữa đây!

Sửa lại chút xíu thôi : Dấu "\" ---> "/"

Function Quy(Optional Dat As Date) As Byte
    If Dat = 0 Then Dat = Date
    Quy = WorksheetFunction.RoundDown(Month(Dat) / 3 + 0.75, 0)
End Function

Mà đã dùng round rồi sao không là :

Function Quy(Optional Dat As Date) As Byte
    If Dat = 0 Then Dat = Date
    Quy = Round(Month(Dat) / 3 + 0.25, 0)
End Function

Hoặc bản thân Quy as Byte nên không cần Round

Function Quy(Optional Dat As Date) As Byte
    If Dat = 0 Then Dat = Date
    Quy = Month(Dat) / 3 + 0.25
End Function

Thân!

 

[SA_DQ]

Bác SA_DQ ơi! Kỳ này một xị bàu đá chắc không đủ! Hy vọng bác hào phóng gửi cho chúng em hai xị nhé!

Không phải gởi đến đâu; Mà là đem đến; Tữu lượng của BAB & mấy anh em mình đọ lường được rồi mà; Mình vừa có nguồn bổ sung 2.000 Cl - Vô tư đi!

Thêm 1 phương án mở rọng về phía trái, chứ không lại là SPAM:

 (Month(Dat)-1) \ 3 + 1

 

[cadafi]

Có lẽ câu hỏi này của em hơi ngố, nhưng thực sự không biết nên em xin phép hỏi:
Dấu "\" và dấu "/" trong trường hợp này đều sử dụng được. Vậy tại sao?