Skip to content

Instantly share code, notes, and snippets.

@lancetw

lancetw/excel.txt.vba

Last active October 2, 2016 07:04
Show Gist options
  • Save lancetw/884a5e4195238c195fadae9ba3ba727b to your computer and use it in GitHub Desktop.
Save lancetw/884a5e4195238c195fadae9ba3ba727b to your computer and use it in GitHub Desktop.
Download ZIP
勤務派遣科 出勤效率 Excel 公式
Raw
excel.txt.vba
=(
(DATEVALUE(
TEXT(
DATE(
MID(TRIM(J5),1,3)+1911,
MID(TRIM(J5),5,2),
MID(TRIM(J5),9,2))
,"YYYY-MM-DD")
)
+
TIMEVALUE(
TEXT(
TIME(
MID(TRIM(J5),11,2),
MID(TRIM(J5),14,2),
MID(TRIM(J5),17,2)
)
,"HH:MM:SS")
)
*86400
)
-
(DATEVALUE(
TEXT(
DATE(
MID(TRIM(H5),1,3)+1911,
MID(TRIM(H5),5,2),
MID(TRIM(H5),9,2)
),"YYYY-MM-DD"
)
)
+
TIMEVALUE(
TEXT(
TIME(
MID(TRIM(H5),11,2),
MID(TRIM(H5),14,2),
MID(TRIM(H5),17,2)
)
,"HH:MM:SS")
)
*86400
)
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment