VB Dateadd

[Trebbors]

Ik ben bezig in VB om vanuit een bronbestand regels op te pakken en zo een nieuw bestand aan te maken.
Dit doe ik via & Mid(strRecord1, 79, waar strRecord1 het bronbestand is. Dit functioneert naar behoren.

Nu loop ik tegen het volgende aan, in het bronbestand staat een waarde als 20091231 (datum).
Het is de bedoeling de datum tijdens het printen met 1 op te hogen.

Echter lijkt de code & CDate(DateAdd("D", 1, (Mid(strRecord1, 79, ))) niet juist.

Wat doe ik verkeerd?

[zwippie]

Welke foutmelding krijg je? Ik kan hier namelijk al wel een paar fouten bij verzinnen, maar het is handiger als je er zelf mee komt.

[DanielG]

Trebbors schreef op donderdag 18 februari 2010 @ 09:22:
...
Wat doe ik verkeerd?

Nah, maak gewoon een TR

[ Voor 14% gewijzigd door Creepy op 18-02-2010 10:49 ]

[Creepy]

"Niet juist". Wat gebeurd er wel? Wat had je verwacht dat er zou gebeuren? Krijg je een foutmelding? Zo ja welke? En wat heb je zelf al geprobeerd om het toch goed werkend te krijgen? Dat is informatie die je eigenlijk al zou moeten hebben voordat je een topic opent

[Trebbors]

Creepy schreef op donderdag 18 februari 2010 @ 10:49:
"Niet juist". Wat gebeurd er wel?

Script komt niet verder.

[Wat had je verwacht dat er zou gebeuren?

Waarde ophoging +1;
in het bronbestand staat een waarde als 20091231 (datum). Het is de bedoeling de datum tijdens het printen in een ander bestand met 1 op te hogen. Dus nieuwe waarde 20100101.

[Krijg je een foutmelding? Zo ja welke?

"Typen komen niet met elkaar overeen"

En wat heb je zelf al geprobeerd om het toch goed werkend te krijgen?

Google afgezocht en gevonden dat dit waarschijnlijk met een combinatie van CDate en DateAdd gedaan moet worden. Tevens een oud cursusboek erbij gepakt maar niets bruikbaars gevonden.

[mrFoce]

Draai je CDate en DateAdd anders om.

dus
DateAdd("D", 1, CDate(Mid(strRecord1, 79, ))

[ Voor 6% gewijzigd door mrFoce op 18-02-2010 12:14 ]

[glmona]

Trebbors schreef op donderdag 18 februari 2010 @ 09:22:
CDate(DateAdd("D", 1, (Mid(strRecord1, 79, )))

Trek bovenstaande code uitelkaar en ga debuggen

Visual Basic:

dim s as string
dim d as date
s = Mid(strRecord1, 79, 8)
d = DateAdd("D", 1, s)
d = CDate(d)

Ik neem aan dat je nu wel kan vinden waar het aan ligt..
Ik gok regel 4..

[ Voor 3% gewijzigd door glmona op 18-02-2010 12:18 ]