VBA в Excel

[Suo]

Помогите, составить пользовательскую функцию, аналогичную функции МЕСЯЦ в Excel. Возвращает месяц для даты, заданной в числовом формате, т.е. число от 1 до 12.

[The_Prist]

Function GetMonth(dDt as Date)
    GetMonth = Month(dDt)
End Function

[Suo]

Сообщение от The_Prist

Function GetMonth(dDt as Date)
    GetMonth = Month(dDt)
End Function

Спасибо большое за ответ. Но мне нельзя использовать функции из библиотеки Excel или VBA. Я могу эту программу написать на Си, но как ее реализовать в VBA не знаю.

 
    main()
    {
    char s2[10];
    char s1[]="";
    int val;
    printf("10 simvolov: ");// дата например 20.12.2012
    gets(s2);
	s1[0]=s2[4];
	s1[1]=s2[5];
	sscanf(s1,"%x",&val);
	if (val>12)
	printf("ЗНАЧ!?");
	else
	printf("%d\n",val);
    getch();
    }

[The_Prist]

Если надо на С - так и обращайтесь в форум по С, зачем Вы пишете в эту ветку, да еще тему называете Excel VBA?

[IgorGO]

Suo,
не темните, извините за терминологию, но колитесь, что Вам надо получить в итоге?

а вообще Вы на правильном пути,
компилируйте код си в ДЛЛ, подключайте библиотеку и не будете

использовать функции из библиотеки Excel или VBA.

и... может стоит поискать более подходящий по тематике форум

function MyM(v)
  MyM = iif(isdate(v), format(cdate(v), "M"), "ваще не дата!")
end function