Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   www.boolean.name > Программирование игр для компьютеров > Blitz3D > Полезные функции

Полезные функции Выкладываем полезные функции, чтоб не изобретать велосипед заново...

Ответ
 
Опции темы
Старый 01.02.2016, 00:34   #1
Harts
AnyKey`щик
 
Регистрация: 31.01.2016
Сообщений: 16
Написано одно полезное сообщение
(для 2 участников)
Дата с русским месяцем + дата в числовом значение для проверки условия.

Решил поделиться, друг кому-нибудь пригодиться.
Function CurrentDateRus$(Dat%=0
Local D$ = left(CurrentDate(),2), M$, Y$ = right(CurrentDate(),4

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

Последний раз редактировалось Harts, 01.02.2016 в 00:47. Причина: Опечатка в название
(Offline)
 
Ответить с цитированием
Эти 2 пользователя(ей) сказали Спасибо Harts за это полезное сообщение:
Arton (02.02.2016), Raion (01.02.2016)
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +1, время: 01:54.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com