ник: snipe
Предложить заказчику вариант написания даты в общепринятом формате 30.09.2011 без различия на языки
можно функцию написать
например так
public function ConverDate( NormalDate as date) as String
dim asd as String
Select case Month(NormalDate)
case 1: asd="января"
case 2: asd="февраля"
case 3: asd="марта"
case 4: asd="апреля"
case 5: asd="мая"
case 6: asd="июня"
case 7: asd="июля"
case 8: asd="августа"
case 9: asd="сентября"
case 10: asd="октября"
case 11: asd="ноября"
case 12: asd="декабря"
end select
ConverDate=day(NormalDate) & " " & asd & " " & Year(NormalDate) & "г."
end function
|