Проблема с Датой в Excel

[Vitjajj]

У меня следующая проблема:
Ввожу дату 30.07.2011
он вписывает 1930.06.11
смена формата ячейки ничего не дает, я имею ввиду формата даты!

Кроме того мне необходимо прописать формулу которая будет считать количество дней от одной даты до другой, при том что если одно из полей пустое значение должно быть 0

[vikttur]

Посмотрите настройку региональных стандартов.

=ЕСЛИ(A1*B1;B1-A1;"")

[IgorGO]

=(A1*B1<>0)*(B1-A1)

[valerij]

А можно, имя месяца, перевести в формат, даты?
Т. е. если в [a1] = Январь, то значение переменной, MyData = [a1] = 01.01.11.

[kuklp]

Валер, ну я же тебе тут показывал Или ты формулой хочешь? Тогда при чем "значение переменной, MyData = [a1] = 01.01.11."?

[valerij]

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

Или ты формулой хочешь?

Нет, конечно, макросом, ты это имел ввиду?

Sheets(1).[a2] = Sheets(2).Cells(1, 1) 'Sheets(2).Cells(1, 1) = Январь
месяц = Month("1 " & [a2].Value & " 2011")
MsgBox месяц

Так чета, месяц = 1, а не 01.01.2011

[kuklp]

Валер, ну тока между нами:
месяц = CDate("1 " & [a2].Value & " 2011")

[valerij]

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

Валер, ну тока между нами:

Заметано!!
спасибо

[IgorGO]

а может еще дальше:

месяц = Month(CDate("1 " & [a2].Value & " 2011"))

[valerij]

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

а может еще дальше

Ок! Усложним, задачу!
Как на основании выше изложенного, упростить выражение!!!!

Private Sub Worksheet_Activate()
MyDate = Sheets(14).Cells(1, 1) 'Значение Январь, Февраль, Март
    With Application
        .EnableEvents = False
    If MyDate = "Январь" Then .GoTo .Cells(3, 1), True
    If MyDate = "Февраль" Then .GoTo .Cells(654, 1), True
    If MyDate = "Март" Then .GoTo .Cells(1242, 1), True
        .EnableEvents = True
    End With
End Sub

Сделал, так

Private Sub Worksheet_Activate()
MyDate = CDate("1 " & Sheets(14).[a1].Value & " 2011")
    With Application
        .EnableEvents = False
    .GoTo .Cells(.Match(CDbl(MyDate), [A:A], 0), 1), True
        .EnableEvents = True
    End With
End Sub