Function DateOfString(Text$, Optional FormatType$ = "*/*/* *") As Date
Dim S$()
If Not Text Like FormatType Then Exit Function
S = Split(Split(Text, " ")(0), "/")
DateOfString = DateSerial(S(2), S(0), S(1))
Erase S
End Function
Function DateOfTime(inDate As Date) As Date
DateOfTime = DateSerial(Year(inDate), Month(inDate), Day(inDate))
End Functioný bác là Overtime hả =)))))))))))))))))Mỗi lần thấy người đẹp này viết xưng OT là mình lại giật mình thon thót à
Hì hì, vì nhớ thời gian OT hồi xưa, ác mộng...
Ahuu, giật cả mình từ lúc đọc được tin của bạn OT lo lắng cứ ngỡ bản thân lại đắc tội gì với ai cơ nhưng mà không dám hỏiMỗi lần thấy người đẹp này viết xưng OT là mình lại giật mình thon thót à
Hì hì, vì nhớ thời gian OT hồi xưa, ác mộng...
Giờ thì yên tâm rồi. Ahii =)))
Người ta dùng nguyên tắc "bỏ thì thương vương thì tội" mờ. Dữ liệu nó như vậy rồi, vén qua vén lại để dùng tiếp.
Có vẻ dữ liệu được kết xuất từ phần mềm.
Tôi chưa đọc dữ liệu. Nhưng nếu nói chuyện "không thống nhất" (lời ở bài #10) thì tôi chưa hề biết hoặc nghe nói tới phần mềm nào mà xuất ra dữ liệu không thống nhất cả.
Nếu vậy thì anh hãy xem dữ liệu trước đã.
Xem rồi, và chịu thua. Không có chỗ nào nói tên phần mềm xuất nó cả.
