| Line 93... |
Line 93... |
| 93 |
If IsNull(dDate) Then Exit Function
|
93 |
If IsNull(dDate) Then Exit Function
|
| 94 |
DisplayDateTime = DisplayDate ( dDate ) &" "& FormatDateTime( dDate, 4 )
|
94 |
DisplayDateTime = DisplayDate ( dDate ) &" "& FormatDateTime( dDate, 4 )
|
| 95 |
End Function
|
95 |
End Function
|
| 96 |
|
96 |
|
| 97 |
Function DisplayDateTimeSecs ( dDate )
|
97 |
Function DisplayDateTimeSecs ( dDate )
|
| 98 |
' Ensures Nice Date format DD-Mon-YYYY HH:MM:SS
|
98 |
' Ensures Nice Date format Day DD-Mon-YYYY HH:MM:SS
|
| 99 |
If IsNull(dDate) Then Exit Function
|
99 |
If IsNull(dDate) Then Exit Function
|
| 100 |
DisplayDateTimeSecs = DisplayDate ( dDate ) &" "& Right("0" & Hour(dDate), 2) & ":" & Right("0" & Minute(dDate), 2) & ":" & Right("0" & Second(dDate), 2)
|
100 |
DisplayDateTimeSecs = DisplayDate ( dDate ) &" "& Right("0" & Hour(dDate), 2) & ":" & Right("0" & Minute(dDate), 2) & ":" & Right("0" & Second(dDate), 2)
|
| 101 |
End Function
|
101 |
End Function
|
| 102 |
|
102 |
|
| - |
|
103 |
Function DisplayShortDateTimeSecs ( dDate )
|
| - |
|
104 |
' Ensures Nice Date format DD-Mon-YYYY HH:MM:SS
|
| - |
|
105 |
If IsNull(dDate) Then Exit Function
|
| - |
|
106 |
DisplayShortDateTimeSecs = DisplayShortDate ( dDate ) &" "& Right("0" & Hour(dDate), 2) & ":" & Right("0" & Minute(dDate), 2) & ":" & Right("0" & Second(dDate), 2)
|
| - |
|
107 |
End Function
|
| - |
|
108 |
|
| 103 |
'-----------------------------------------------------------------------------------------------------------------------------
|
109 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 104 |
Function ToLongDate ( dDate )
|
110 |
Function ToLongDate ( dDate )
|
| 105 |
' DD/MM/YYYY -> Saturday, June 26, 1943
|
111 |
' DD/MM/YYYY -> Saturday, June 26, 1943
|
| 106 |
If IsNull(dDate) Then Exit Function
|
112 |
If IsNull(dDate) Then Exit Function
|
| 107 |
ToLongDate = FormatDateTime(dDate, 1)
|
113 |
ToLongDate = FormatDateTime(dDate, 1)
|