![]() |
|
|
+ Search |
![]()
|
Jul 23rd, 2000 03:18
unknown unknown, Swanand Mokashi
Swanand Mokashi has written a custom function for this : Function DateConvert(MyDate) Dim strDay Dim intDate Dim strMonth Dim intyear Dim WDay Dim MMonth Dim int4digyear WDay = WeekDay(MyDate) MMonth = Month(MyDate) strDay = WeekDayName(Wday) intDate = Day(MyDate) strMonth = MonthName(MMonth) intYear = Year(MyDate) int4digyear = Right(intYear,4) DateConvert = " " & strDay & ", " & intDate & " " & strMonth & " " & int4digyear End Function
© 1999-2004 Synop Pty Ltd