Søg
Avatar billede andersasp Nybegynder
23. februar 2007 - 09:33 Der er 10 kommentarer og
1 løsning

Læg en dag til en specifik dato

Jeg har samlet en dato op ex. 140307, den har jeg smidt i en variable. Men den ved ikke det er en dato men blot et tal. Jeg skal have et styk kode som så ved at det er en dato, og den skal så kunne finde ud af at lægge en dag til så outcome er 150307.
Jeg er ikke verdensmester i VBA, så derfor må det gerne være skåret lidt ud i pap.
Håber der er en der kan hjælpe.
God dag
Avatar billede kalp Novice
23. februar 2007 - 09:54 #1
Hvis dit input er tal skal du lige lave det om til en string..

dvs.

dim enDato = CStr(140307)

dim dag = Left$(MyString,2)
dim maned = Mid$(MyString,3,2)
dim ar = Right$(MyString,2)

dim dato = CDate(dag " & "/" & " maned " & "/" & ar)


ja måske virker den sidste ikke.. du skal bare sætte de der strings sammen.
Avatar billede supertekst Ekspert
23. februar 2007 - 10:41 #2
Alternativ:
Sub test()
Dim dato1 As Date, xD0 As String, xD1 As Variant
    xD0 = CStr(140307)
Rem konverter til datoformat
    dato1 = Left(xD0, 2) + "-" + Mid(xD0, 3, 2) + "-" + Right(xD0, 2)
Rem Forøg dag med 1
    dato2 = DateAdd("d", 1, dato1)
Rem ren numerisk
    xD1 = Val(Format(dato2, "ddmmyy"))
End Sub
Avatar billede terry Ekspert
23. februar 2007 - 11:26 #3
Dim sStr as String
Dim dDate as Date

sStr = "140307"

dDate = DateAdd("d",1,DateSerial( Right(sStr,2), Mid(sStr,3,2), Left(sStr,2) ))
Avatar billede andersasp Nybegynder
23. februar 2007 - 11:42 #4
Tusind tak for hjælpen, tak for alle inputs, men det var supertekst som sad lige i skabet. Resten virker sikkert, så sig til hvis i vil dele.
Avatar billede kalp Novice
23. februar 2007 - 11:52 #5
Det er okay med mig, at han får points når du valgte hans løsning:)
Avatar billede terry Ekspert
23. februar 2007 - 11:54 #6
og mig :o)
Avatar billede andersasp Nybegynder
23. februar 2007 - 11:57 #7
Meget fint, så får han pointene. Men i hvert fald tak for input.
God weekend ;o)
Avatar billede andersasp Nybegynder
23. februar 2007 - 11:59 #8
Supertekst, du skal lige smide et svar så jeg kan give dig point. ;o)
Tak for hjælpen..
Avatar billede terry Ekspert
23. februar 2007 - 12:05 #9
god weekend herfra også
Avatar billede supertekst Ekspert
23. februar 2007 - 14:02 #10
Selv tak - det er så her - også god week-end her fra "sne-området"
Avatar billede andersasp Nybegynder
27. februar 2007 - 14:58 #11
tak for hjælpen!!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 13:55 Ukendt sender e-mails fra - og til min e-mail adresse Af mort1 i Andet sikkerhed
24/0711:08 Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel
23/0715:10 WINDOWS KOMPABILITET Af snestrup2000 i Windows
22/0720:19 DVB T2 tuner med optagefunktion Af ErikHg i Andet hardware
20/0716:00 Fildeling mellem 2 windows 11 systemer Af knudg i Windows
White papers
Flere white papers »