Giúp về ngày tháng trong vba (1 người xem)

[hoangdung2906]

Có A2=dd/mm/yyyy bất kì.
Dùng VBA để tại ô A1 có kết quả là 25/mm-1/yyyy nếu dd<25
và A1 có kết quả 25/mm/yyyy nếu dd>25. Anh chị giúp em vs ạ... em làm mãi k đc. e cảm ơn!!!

 

[ppc0312]

Có A2=dd/mm/yyyy bất kì.
Dùng VBA để tại ô A1 có kết quả là 25/mm-1/yyyy nếu dd<25
và A1 có kết quả 25/mm/yyyy nếu dd>25. Anh chị giúp em vs ạ... em làm mãi k đc. e cảm ơn!!!

nếu dd=25 thì tính sao?

 

[SA_DQ]

Option Explicit
Sub DateInA1()
 Dim Ng As Byte
 
 With [A2]
    Ng = Day(.Value)
    If Ng < 25 Then
        [a1].Value = DateSerial(Year(.Value), Month(.Value) - 1, Ng)
    Else
        [a1].Value = DateSerial(Year(.Value), Month(.Value), 25)
    End If
 End With
End Sub

 

[hoangdung2906]

nếu dd=25 thì tính sao?

Vâng em ghi thiếu <=25 bác à

 

[hoangdung2906]

Option Explicit
Sub DateInA1()
 Dim Ng As Byte
 
 With [A2]
    Ng = Day(.Value)
    If Ng < 25 Then
        [a1].Value = DateSerial(Year(.Value), Month(.Value) - 1, Ng)
    Else
        [a1].Value = DateSerial(Year(.Value), Month(.Value), 25)
    End If
 End With
End Sub

em thử đc rồi cám ơn bác nhiều ạ

 

[VetMini]

em thử đc rồi cám ơn bác nhiều ạ

Hiểu chết liền

Option Explicit
Sub DateInA1()
 Dim Ng As Byte
 
 With [A2]
    Ng = Day(.Value)
    If Ng < 25 Then
        [a1].Value = DateSerial(Year(.Value), Month(.Value) - 1, Ng) ' chỗ này cho thấy kết quả có thể khác ngày 25
    Else
        [a1].Value = DateSerial(Year(.Value), Month(.Value), 25)
    End If
 End With
End Sub

Có A2=dd/mm/yyyy bất kì.
Dùng VBA để tại ô A1 có kết quả là 25/mm-1/yyyy nếu dd<25
và A1 có kết quả 25/mm/yyyy nếu dd>25. Anh chị giúp em vs ạ... em làm mãi k đc. e cảm ơn!!!

Theo điều kiện thì kết quả luôn là ngày 25

 

[hoangdung2906]

........................

 

[hoangdung2906]

Hiểu chết liền





Theo điều kiện thì kết quả luôn là ngày 25

vâng nó chỉ khác tháng thôi bác. bác xem kĩ đi ạ 2 điều kiện 2 kết quả mà