Решил поделиться, друг кому-нибудь пригодиться.
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
01.02.2016, 03:34
