수다닷컴

안녕하세요. VB로 인해 골머리를 썩고 있는 초보쟁이입니다.이전에 질문을 드렸던 문제인데요, 답변 내용으로 문제 해결이 이루어지지 않아 재차 질문을 드립니다.ㅠ,.ㅜ각 월마다 일자별로 출력값을 가지기 위해서 아래와 같은 코드를 입력하였습니다. Dim jj As Integer Select Case Mid(datplan_yymm.Text, 6, 2)
Case 01, 03, 05, 07, 08, 10, 12
For jj = 1 To 31이를 통해서 각 case의 날짜를 출력하게 되었는데요,어떠한 이유에서인지 1~9까지의 일자는 출력이 되지 않고 있습니다.10 ~ 31까지는 출력이 되고 있습니다.제 생각에는 날자 조건이 DD라 문제가 일어나는 것으로 생각이 되어 이를 해결하고자한자리 일자의 앞에 0을 붙이려는 것입니다.이전 답변 내용을 토대로Select Case Mid(datplan_yymm.Text, 6, 2)
Case 01, 03, 05, 07, 08, 10, 12
For jj = 1 To 31If jj 10 Then
jj = 0 & jj
Else
jj = jj
End If작성한 것으로는 해결이 되지 않고, Format문으로는 어떻게 하는지를 모르겠습니다. ㅠ,.ㅜ고수님의 조언이나 도움이 필요합니다.감사합니다.(_ _)

신청하기