Public Function SuaNgay(NgayBatKy)
' Original Design 2002
If Not IsDate(NgayBatKy) Then
MsgBox "Ngaøy khoâng hôïp leä"
SuaNgay = Date
Else
WorkString = NgayBatKy
WPosition = InStr(1, WorkString, "/")
WDD = Left(WorkString, WPosition - 1): WorkString = Mid(WorkString, WPosition + 1)
WPosition = InStr(1, WorkString, "/")
If WPosition = 0 Then
WMM = WorkString: WYY = Year(Date)
Else
WMM = Left(WorkString, WPosition - 1): WYY = Mid(WorkString, WPosition + 1)
End If
SuaNgay = DateSerial(WYY, WMM, WDD)
End If
Thứ Sáu, 1 tháng 4, 2016
VBA Excel - Hàm sửa ngày
Artikel Terkait
- - WorksheetFunction Vd : Range(“A3”).Value = Application.WorksheetFunction.Average(R
- * Đoạn code tự động thực hiện các mệnh lệnh khi mở file Excel : Sub auto_open() On Error
- Sub Create_Index() Dim wsSheet As Worksheet Dim ws As Worksheet Dim Counter As Long
- Public Function f_doikytu(chuoikytu1 As String, kytucu1 As String, kytumoi1 As String)
- Public Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxW&qu
- Public Function Chu(sotien) 'Function suu tam Dim tien, k, n As Integer Dim Nhom, S1, S2
Đăng ký:
Đăng Nhận xét (Atom)
EmoticonEmoticon