Subversion Repositories DevTools

Rev

Rev 5670 | Rev 6627 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5670 Rev 5684
Line 3... Line 3...
3 
'					 FORMATING
 3 
'					 FORMATING
4 
'=====================================================
 4 
'=====================================================
5 
%>
 5 
%>
6 
<%
 6 
<%
7 
'-----------------------------------------------------------------------------------------------------------------------------
 7 
'-----------------------------------------------------------------------------------------------------------------------------
- 
 
 8 
' Don't use - retained for legacy bits
8 
Function EuroDate ( dDate )
 9 
Function EuroDate ( dDate )
9 
	' Ensures Euro Date format DD/MM/YYYY
 10 
	' Ensures Euro Date format DD/MM/YYYY
10 
	If IsNull(dDate) Then Exit Function
 11 
	If IsNull(dDate) Then Exit Function
11 
	EuroDate = Day(dDate) &"/"& Month(dDate) &"/"& Year(dDate)
 12 
	EuroDate = Day(dDate) &"/"& Month(dDate) &"/"& Year(dDate)
12 
End Function
 13 
End Function
13 
'-----------------------------------------------------------------------------------------------------------------------------
 14 
'-----------------------------------------------------------------------------------------------------------------------------
14 
Function EuroDateTime ( dDate )
 - 
 
15 
	' Ensures Euro DateTime format DD/MM/YYYY H24:MIN:SS
 - 
 
16 
	If IsNull(dDate) Then Exit Function
 - 
 
17 
	EuroDateTime = Day(dDate) &"/"& Month(dDate) &"/"& Year(dDate) &" "& FormatDateTime( dDate, 4 )
 - 
 
18 
End Function
 - 
 
19 
Function DayName (intDay)
 15 
Function DayName (intDay)
20 
  '------------------------------------------
 16 
  '------------------------------------------
21 
  ' Returns Abbreviated Day of Week
 17 
  ' Returns Abbreviated Day of Week
22 
  '------------------------------------------
 18 
  '------------------------------------------
23 
  select case intDay
 19 
  select case intDay
Line 111... Line 107...
111 
	' DD/MM/YYYY  -> Saturday, June 26, 1943
 107 
	' DD/MM/YYYY  -> Saturday, June 26, 1943
112 
	If IsNull(dDate) Then Exit Function
 108 
	If IsNull(dDate) Then Exit Function
113 
	ToLongDate = FormatDateTime(dDate, 1)
 109 
	ToLongDate = FormatDateTime(dDate, 1)
114 
End Function
 110 
End Function
115 
'-----------------------------------------------------------------------------------------------------------------------------
 111 
'-----------------------------------------------------------------------------------------------------------------------------
116 
Function EuroDateTimeForCalendarControl(dDate)
 - 
 
117 
   ' Ensures Euro DateTime format DD-MM-YYYY H24:MIN:SS
 - 
 
118 
	If IsNull(dDate) Then Exit Function
 - 
 
119 
   EuroDateTimeForCalendarControl = Day(dDate) &"-"& Month(dDate) &"-"& Year(dDate) &" "& Hour(dDate) & ":" & Minute(dDate) & ":" & Second(dDate)
 - 
 
120 
End Function
 - 
 
121 
'-----------------------------------------------------------------------------------------------------------------------------
 - 
 
122 
Function TO_ORADATE ( SSdate )
 112 
Function TO_ORADATE ( SSdate )
123 
	'DD/MM/YYYY -> ORADATE
 113 
	'DD/MM/YYYY -> ORADATE
124 
	TO_ORADATE = "TO_DATE( '"& SSdate &"','DD/MM/YYYY' )"
 114 
	TO_ORADATE = "TO_DATE( '"& SSdate &"','DD/MM/YYYY' )"
125 
End Function
 115 
End Function
126 
'-----------------------------------------------------------------------------------------------------------------------------
 116 
'-----------------------------------------------------------------------------------------------------------------------------