VBA 사용자 형식 날짜/시간 스탬프 - 영국

Question

날짜 및 시간 스탬프 dd/mm/yyyy hh : mm : ss가있는 userform이 있습니다.

그것은 텍스트 상자에 영국 형식으로 보여 주며, 내가이 코드를 사용하여 생성 :

문제가 발생

Dim iNow 
Dim d(1 To 6) 
Dim i As Integer 


iNow = Now 
d(3) = Year(iNow) 
d(2) = Month(iNow) & "/" 
d(1) = Day(iNow) & "/" 
d(4) = Hour(iNow) & ":" 
d(5) = Minute(iNow) & ":" 
d(6) = Second(iNow) 

For i = 1 To 6 
    If d(i) < 10 Then Timestamp = Timestamp & "0" 
    Timestamp = Timestamp & d(i) 
    If i = 3 Then Timestamp = Timestamp & " " 

Next i 
datetextbox.Value = Timestamp 

때 코드 전송 다음 코드를 사용하여 엑셀 데이터베이스 시트이 정보의 다음 블록 :

'Determine emptyRow in Database Sheet 
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1 
Cells(emptyRow, 14).Value = datetextbox.Value 

스프레드 시트 셀에 들어가면 날짜가 MM/DD/YYYY로 변경됩니다. VBA에서 숫자 서식을 시도하고 드롭 다운 메뉴에서 사용자 지정 설정을 사용하고 두 개의 개별 컴퓨터에서 지역 설정이 UK인지 확인했습니다. 나는 이제 간단한 시도 않았다

=MAX(IF(Database!$P$2:$P$1437=P488,IF(Database!$P$2:$P$1437=P488,Database!$N$2:$N$1437,""))) 

(이 후 클렌징 시트로 데이터를 전송하는 공식을 사용하여 동일한 참조 번호의 가장 최근의 기록을 인식합니다 내가 만든 문서에 중요한 부분입니다) dd/mm/yyyy/hh : mm : ss 형식을 나타내지 만 미국 형식으로도 변환됩니다.

도움을 주시면 감사하겠습니다.

Answer 1

나는이 이전에 여기에 여러 번 대답하고있다 의심,하지만 당신은 CDate를 사용해야합니다 :

Cells(emptyRow, 14).Value = CDate(datetextbox.Value) 

이 국가 별 설정을 사용하여 진정한 날짜 값으로 날짜 문자열을 변환합니다.