Jump to content
Sign in to follow this  
Kurderen

Hjelp til datofunksjon i Visual Basic. Net

Recommended Posts

Hei

 

Kan noen hjelpe meg å lage eller vise til et sted der jeg kan finne en code for dato frem i tid. Det jeg trenger er at hvis jeg i dag den 27.07.19 klikker på knappen som jeg tilordner coden at den skal uavhengig av dato i måneden alltid sette datoen to måneder frem i tid pluss for eksempel 5 dager. Så resultatet blir 05.09.19 som output. Og uansett hvilken dag i august man bruker knappen vises det 05.10.19 og 05.11.19 når man er i september. Også videre..

 

Skal tilknyttes en makro-tastatur med tilhørende programvare som støtter VB.

 

Fant noe som ikke er helt komplett.

dateAfterMonth = DateTime.Now.AddMonths(1)

 

 

Noen ideer?

 

 

Takker

Share this post


Link to post


Imports System
Imports System.Globalization

Dim monthsToAdd As Integer = 2
Dim daysToAdd As Integer = 5
Dim format As String = "dd.MM.yy"
Dim parsedDate As DateTime = Date.ParseExact("27.07.19", format, CultureInfo.InvariantCulture) ' Date.Now
Dim tempDate As DateTime = New DateTime(parsedDate.Year, parsedDate.Month, 1).AddMonths(monthsToAdd)
Dim futureDate As DateTime = new DateTime(tempDate.Year, tempDate.Month, 1).AddDays(daysToAdd - 1)

Console.WriteLine(futureDate.ToString(format)) ' 05.09.19

' 10.08.19 -> 05.10.19
' 15.09.19 -> 05.11.19
' 20.10.19 -> 05.12.19
' 25.11.19 -> 05.01.20
' 30.12.19 -> 05.02.20

 

Edited by ahw_

Share this post


Link to post

Join the conversation

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

Guest
Reply to this topic...

×   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

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...