Jump to content

Молба за помощ за задача на Visual basic


Препоръчан пост

Здравейте,

Имам да правя задача на VB и ми е нужха помощ

Задачата е следмата: При въведен ЕГН във вид на символен низ да се определи възрастта на даденото лице в години месеци и дни към 1.1.2009г.

Ако може да ми кажете какда почна или да ми напищете кода аз другото го знам.

Link to comment
Сподели другаде

Доколкото знам чрез DateDiff() функцията, или чрез subtract функцията от Date класът, може да изчислиш разликата между две дати в дни.

Пример:

DateDiff(DateInterval.Day, New Date(2008, 1, 1), New Date(2009, 1, 1)) 'Връща 366;

Вече не знам как ще изчислиш месеците и годините.

 

пп: Не е много културно да се дава зор. Форумът е безплатен, и не всеки има свободно време за да ти отговори.

Link to comment
Сподели другаде

Ако може ми кажи как да преобразя ЕГН-то така че да определя на колко години е даденото лице.

 

Намерих част от програмата но незнам как да преведа този код:

=DATE(IF(INT(MID(A1;3;2))<20;MID(A1;1;2) +1900;IF(INT(MID(A1;3;2))<40;MID(A1;1;2) +1800;MID(A1;1;2)+2000));IF(INT(MID(A1;3;2))<20;MID(A1;3;2);IF(INT(MID(A1;3;2))< 40;MID(A1;3;2)-20;MID(A1;3;2)-40));MID(A1;5;2))

от екселската формула във код на VB. Ако не сте много сардити ще ми помогнетели.

Link to comment
Сподели другаде

Module Module1
Sub Main()
	Dim x As String, days As Integer
	Console.Write("EGN:")
	x = Console.ReadLine()
	days = DateDiff(DateInterval.Day, New Date(IIf(x.StartsWith("0"), Val("20" & Mid(x, 1, 2)), Val("19" & Mid(x, 1, 2))), Val(Mid(x, 3, 2)), Val(Mid(x, 5, 2))), New Date(2009, 1, 1))
	Console.WriteLine("Days:" & days.ToString)
	Console.Read()
End Sub
End Module

Link to comment
Сподели другаде

В Click събитието на бутона, слагаш този код...

 

Dim x As String, days As Integer

x = TextBox1.Text

days = DateDiff(DateInterval.Day, New Date(IIf(x.StartsWith("0"), Val("20" & Mid(x, 1, 2)), Val("19" & Mid(x, 1, 2))), Val(Mid(x, 3, 2)), Val(Mid(x, 5, 2))), New Date(2009, 1, 1))

MsgBox("Days:" & days.ToString)

End Sub

 

Подчертания текст, заменяш с името на TextBox контрола.

Link to comment
Сподели другаде

Стана но изкарва само дните

Знаеш ли наякакъв начимн да използвавм първо първи и втори символ като година за са може да я сравня с тази от задачата и така да месеците и дните нещо от този ви трябва да се получи: 23 години 3 месеца и 3 дни

Link to comment
Сподели другаде

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Гост
Отговори на тази тема

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   Не можете да качите директно снимка. Качете или добавете изображението от линк (URL)

Loading...
×
×
  • Създай ново...