VBNet - Форум - Функция для росчёта веку человека

Вопрос: Функция для росчёта веку человека Добавлено: 16.12.02 17:53

Автор вопроса: Piterskoy | ICQ: 173008782

Помогите пожолоста.
Если есть у кого то подобная функция котороя вичесляет:
(* годов;* месецов;* дней) человека скинте пожолуйста исходник.
Зарание благодарен.

Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: Svetlana ICQ: 262385618 Вопросов: 43 Ответов: 205	Профиль \| \| #1	Добавлено: 16.12.02 21:40
	К сожалению у меня есть только .ехешник, но и он считает только кол-во дней с момента рождения ( дата рожддения вводится пользователем). Так что даже не знаю чем тебе помочь... Ответить

Номер ответа: 2 Автор ответа: *CyRax* Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229	Web-сайт: basicproduction.nm.ru Профиль \| \| #2	Добавлено: 16.12.02 22:15
	О, гляди шо я раскапал. 1 гот=365 днеи 10 лет=10*365=365 днеи 1 гот=12 мес. 365/12=30 днеи В адном месеце 30 днеи !!! Ответить

Номер ответа: 3
Автор ответа:

Piterskoy

ICQ: 173008782

Вопросов: 29
Ответов: 23

Профиль | | #3

Добавлено: 16.12.02 22:26

CyRax и долго ты это роскоповал ?

Серйозная инфа. Особенно 1 гот=365 днеи

Ответить

Номер ответа: 4
Автор ответа:

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | | #4

Добавлено: 16.12.02 22:54

Не знаю, может ты и гений в своём окружени, но

я так даже в первом классе не писал.

Как же ты за синтаксисом БЕЙСИКа следишь ?

Хотя я конечно тоже ложанулся

10 лет=10*365=365 днеи - исправляю

10 лет=10*365=3650 днеи

Ответить

Номер ответа: 5
Автор ответа:

Justas

ICQ: 259418212

Вопросов: 24
Ответов: 325

Web-сайт: justas.newmail.ru
Профиль | | #5

Добавлено: 18.12.02 08:58

Лови, если ещё актуально.

'надо 2 textbox и баттон...

Private Sub Command1_Click()
Dim a As Date
Dim b As String
a = Text1.Text 'дата рождения dd.mm.yyyy
b = GetAge (a) 'возраст dd.mm.yy
Text2.Text = b
End Sub

Private Function GetAge(dtDOB As Date, Optional dtDateTo As Date = 0) As String
'вычисляем количество полных лет
    ' dtDateto передана?
    If dtDateTo = 0 Then
    dtDateTo = Date
    End If
    GetAge = Format$(dtDateTo - dtDOB, "dd.mm.yy") 'в каком 'формате выводить. можно например "mm.yy"
End Function

Ответить

Номер ответа: 6 Автор ответа: Piterskoy ICQ: 173008782 Вопросов: 29 Ответов: 23	Профиль \| \| #6	Добавлено: 18.12.02 12:32
	Justas большое спосибо. Ответить

Страница: 1 |