 |
|
ที่ผมทำเองก็ประมาณนี้ครับ แต่ Code ยังไม่ได้ทำ Format ในส่วนของเวลา ก็ลองทำเพิ่มดูครับ
==========================================================================
Function FormatDate(iDate,Style)
' Year Section
' Example: iDate = "1/01/2005"
' ==========================================================
' YYYY = 2005
' YY = 05
' ==========================================================
If Year(iDate) < 1900 Then
Style = Replace(Style,"YYYY",Year(iDate)+543)
Style = Replace(Style,"YY",Right(Year(iDate)+543,2))
Else
Style = Replace(Style,"YYYY",Year(iDate))
Style = Replace(Style,"YY",Right(Year(iDate),2))
End if
' Month Section
' Example: iDate = "1/01/2005"
' ==========================================================
' MMMM = January
' MMM = Jan
' MM = 01
' M = 1
' ==========================================================
Style = Replace(Style,"MMMM",MonthName(Month(iDate)))
Style = Replace(Style,"MMM",MonthName(Month(iDate),True))
Style = Replace(Style,"MM",Right("00" & Month(iDate),2))
Style = Replace(Style,"M",Month(iDate))
' Day Section
' Example: iDate = "1/01/2005"
' ==========================================================
' DDDD = Friday
' DDD = Fri
' DD = 01
' D = 1
' ==========================================================
Style = Replace(Style,"DDDD",WeekDayName(WeekDay(iDate)))
Style = Replace(Style,"DDD",WeekDayName(WeekDay(iDate),True))
Style = Replace(Style,"DD",Right("00" & Day(iDate),2))
Style = Replace(Style,"D",Day(iDate))
FormatDate = Style
End Function
|
 |
 |
 |
 |
| Date :
20 ก.ค. 2548 16:12:42 |
By :
JezusMitsui |
|
 |
 |
 |
 |
|
|
 |
