ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¥u¤ñ¸û¦~¤ë ???

¥u¤ñ¸û¦~¤ë ???

°²¦p [a1] ¤é´Á¤j©ó [a2] ¤é´Á «h .....   »yªk¬O???
¥u¤ñ¸û¦~¤ë¨Ò¦p
If Format(Sheet1.[a1], "yyyymm") > Format(Sheet1.[a2], "yyyymm") Then
MsgBox "test"
End If
[a1]=2018/6/11
[a2]=2018/6/12
´ú¸Õµ²ªG¤£¹ï
§Ú­nªºµª®×¬Oµ¥©ó ¦~¤ë¤@¼Ë¬O¬Ûµ¥
2019¦~1¤ë¤j©ó2018¦~12¤ë
2018¦~12¤ë¤j©ó2018¦~11¤ë

¦^´_ 1# t8899

°Ñ¦Ò¬Ý¬Ý
  1. Public Sub AA2()

  2. If CLng(Format([a1], "yyyymm")) < CLng(Format([a2], "yyyymm")) Then
  3.     Debug.Print Format([a1], "yyyy¦~mm¤ë") & "¤p©ó" & Format([a2], "yyyy¦~mm¤ë")
  4. ElseIf CLng(Format([a1], "yyyymm")) = CLng(Format([a2], "yyyymm")) Then
  5.     Debug.Print Format([a1], "yyyy¦~mm¤ë") & "µ¥©ó" & Format([a2], "yyyy¦~mm¤ë")
  6. Else
  7.     Debug.Print Format([a1], "yyyy¦~mm¤ë") & "¤j©ó" & Format([a2], "yyyy¦~mm¤ë")
  8. End If
  9. End Sub
½Æ»s¥N½X

TOP

¤½¦¡=TEXT(A1,"yyyymm")-TEXT(A2,"yyyymm")
vba Format([a1], "yyyymm") - Format([a2], "yyyymm")
«ö»Ý­n¥[¤W if °µ§PÂ_

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD