시나공

시험에

나오는 것만

공부한다!

문제 4-2

cmd등록 버튼을 클릭할 때의 프로시저 

* 제가 작성한 프로시저입니다.

-------------------------------------------------

Private Sub cmd등록_Click()

 입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count

 기준행 = lst열차종류.ListIndex + 4

 If IsNull(lst열차종류) = True Then

  txt번호 = "선택안함"

  lst열차종류 = lst열차종류.List(0)

  Else

 Cells(입력행, 1) = 입력행 - 3 & "-" & UCase(txt번호)

 Cells(입력행, 2) = Format(TimeValue(txt예약시간), "hh:mm")

 Cells(입력행, 3) = Format(txt예약시간, "ampm")

 Cells(입력행, 4) = Cells(기준행, 10)

 Cells(입력행, 5) = Cells(기준행, 11)

 Cells(입력행, 6) = Val(txt매수)

 Cells(입력행, 7) = Val(txt매수) * Cells(기준행, 12)

 End If

End Sub

----------------------------------------------------

 채점 프로그램에서 오답 처리되었는데

 실제 결과는 같은 것 같습니다. 이것도 정답으로 인정될까요?

 다만, 이상하게 Cells(입력행, 2) = Format(TimeValue(txt예약시간), "h:mm") 은 정답과 똑같은데도 처음 입력(4행)될 때는 7:32:00 PM으로 표시되고 그 이후에는 19:32로 표시됩니다. 이유를 알고 싶습니다.