% Dim pos Dim str str = Date Dim m Dim d pos = InStr(1, str, "/", vbTextCompare) m = Mid(str, 1, pos - 1) str = Mid(str, pos + 1, Len(str)) pos = InStr(1, str, "/", vbTextCompare) d = Mid(str, 1, pos - 1) if m < 10 then m= "0" & m if d < 10 then d= "0" & d md= m & "/" & d & "/07" %>
|
|
||||
|
Created Impressions & Feedbacks page on Sunday, May 25,2008 Uploaded on Monday, May 19,2008 Dictionary in Arabic Uploaded on Monday, May 19,2008 Thai Short-Course Vocabulary card Uploaded on Saturday, May 17,2008 Urdu and Hindi short-course video files Uploaded on 13th May 2008 Tamil short-course PPT's
|
|||