Дата с русским месяцем + дата в числовом значение для проверки условия.
Решил поделиться, друг кому-нибудь пригодиться.
PHP код:
Function CurrentDateRus$(Dat%=0) Local D$ = left(CurrentDate(),2), M$, Y$ = right(CurrentDate(),4)
Select Dat% Case 0 ;Преобразует Дату в числовое значения ("01 Apr 2012" в "01042012") Select Mid$(CurrentDate(),4,3) Case "Jan" M = "01" Case "Feb" M = "02" Case "Mar" M = "03" Case "Apr" M = "04" Case "May" M = "05" Case "Jun" M = "06" Case "Jul" M = "07" Case "Aug" M = "08" Case "Sep" M = "09" Case "Oct" M = "10" Case "Nov" M = "11" Case "Dec" M = "12" End Select Local Date% = Int (D+M+Y) Return Date Case 1 ;Заменяет Анг. месяц на Рус. ("01 Apr 2012" в "01 Апрель 2012") Select mid$(CurrentDate(),4,3) Case "Jan" M = "Январь" Case "Feb" M = "Февраль" Case "Mar" M = "Март" Case "Apr" M = "Апрель" Case "May" M = "Май" Case "Jun" M = "Июнь" Case "Jul" M = "Июль" Case "Aug" M = "Август" Case "Sep" M = "Сентябрь" Case "Oct" M = "Октябрь" Case "Nov" M = "Ноябрь" Case "Dec" M = "Декабрь" End Select Local Dateru$ = D+" "+M+" "+Y Return Dateru End Select End Function
|