Thêm số 0 vào trước các ngày từ 1-9

Đoạn Code sau đây giúp chúng ta thêm số 0 vào trước các ngày(tháng) 1 đến 9 để chuyển chúng thành 01-09.
Sử dụng hàm Day(Date) Month(Date) để lấy ngày, tháng và hàm Len để so sánh độ dài của chuỗi ngày tháng.


Để lấy ngày và tháng trước hết chúng ta khai báo 2 biến chuỗi sau:

Dim strDay, strMonth

• Lấy ngày trên server: strDay=Day(Date)
  
• Lấy tháng trên Server: strMonth= Month(Date)
  

Nếu chuỗi giá trị của strDay = 1 (ký tự) tức ngày 1-9(ngày này chỉ 1 ký tự 1,2,3...) thì chúng ta thêm số 0 vào trước:

If Len(Day(Date) = 1 Then 'Nếu chuỗi Day(Date) chỉ có 1 character thì:

strDay = "0" & Day(Date) 'Thêm số 0 vào trước chuỗi đó

Else 'Còn lại thì

strDay = Day(Date) 'strDay = giá trị của ngày.

End If
Làm tương tự với hàm Month(Date)

Đây là Source codes đầy đủ của hàm 3 hàm Day(Date), Month(Date) và Year(Date)

<%
Dim strDay, strMonth, strYear
strDay = Day(Date)
strMonth = Month(Date)
If Len(Day(Date)) = 1 Then
strDay = "0" & Day(Date)
Else
strDay = Day(Date)
End If

If Len(Month(Date)) = 1 Then
strMonth = "0" & Month(Date)
Else
strMonth = Month(Date)
End If
strYear = Year(Date)

%>

Lấy kết quả:

<% = strDay %>/<%= strMonth %>/<% = strYear %>

Submit Article :- Digg + Technorati + del.icio.us + Stumbleupon + Reddit + BlinkList + Furl + Yahoo+ Blogmarks + Ekstreme Socializer

|