Excel VBA는 날짜 + 시간 값을 만듭니다.

Question

테이블에 yyyymmdd 및 hhmmddxx의 데이터가 포함 된 두 개의 열이 있습니다. 첫 번째 열은 날짜이고 다른 시각은 0.01 초입니다. 예를 들어, 나는 20161102과 17052349입니다.

시간을 나타내는 단일 값으로 변환하고 dd/mm/yyyy hh:mm:ss.xx 형식으로 표시하고 싶습니다. 예를 들어 02/11/2016 17:05:23.49을 얻고 싶습니다. 내가 DateSerial 및 TimeSerial 기능을 사용할 필요가 있다고 생각하지만,이 문제는 내가 어떻게 주위에 가서 아무 생각이있다 :

1. TimeSerial는 시간, 분을 받아 두 번째 인수로, 모든 정수 타입, 어떻게 분수를 전달하는 그것에 두 번째?
2. DateSerial은 내 날을 만들고 TimeSerial은 내 시간을 만듭니다. 날짜 및 시간을 인수로 사용하여이 중 하나의 "그날, 그 시간에"값을 만드는 함수가 있습니까?

Answer 1

어쩌면 이렇게 할 수 있을까요 ??

? generate_timestamp("20161102","170522349")

는

02/11/2016 17:05:23.49

Function GENERATE_TIMESTAMP(strDate As String, strTime As String) As String 

Dim dtDate As Date 
Dim dtTime As Date 

dtDate = DateSerial(Mid(strDate, 1, 4), Mid(strDate, 5, 2), Mid(strDate, 8, 2)) 
dtTime = TimeSerial(Mid(strTime, 1, 2), Mid(strTime, 3, 2), Mid(strTime, 6, 2)) 

GENERATE_TIMESTAMP = FormatDateTime(dtDate, vbShortDate) & " " & _ 
         FormatDateTime(dtTime, vbLongTime) & "." & _ 
         Mid(strTime, 8, 2) 

End Function 

Answer 2

편집을 제공합니다 : 테스트 서식 초 분수를 삭제, 그냥 분수를 반복했다 발견 후. 해결할 수식을 고안했습니다. 여기에있는 수식은 datetime의 직렬 표현을 출력하지 않지만 단지 텍스트 문자열임을 유의하십시오.

=TEXT(DATE(LEFT(A1,4),MID(A1,5,2),RIGHT(A1,2))+TIME(LEFT(B1,2),MID(B1,3,2),MID(B1,5,2)),"m/d/yyyy hh:mm:ss")&"."&RIGHT(B1,2) 

이전 응답은 :

=DATE(LEFT(A1,4),MID(A1,5,2),RIGHT(A1,2))+TIME(LEFT(B1,2),MID(B1,3,2),MID(B1,5,2))+(RIGHT(B1,2)/(24*60*60*100)) 

을 그리고/월/일 HH와 사용자 정의로 셀을 포맷 :

다음과 같은 공식을 사용하여 시리얼을 만들 수 있습니다 MM : SS. ss. 여기서는 초의 분수를 TIME() 함수로 전달하지 않고 오히려 하루의 일부분으로 추가합니다.