---
title: "Datum!!!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/46568-datum"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "roady"
published: "2002-06-25T08:35:36.000Z"
updated: "2002-06-25T08:46:41.000Z"
replies: 3
views: 261
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/46568-datum"
---

# Datum!!!

## #1 — roady, 2002-06-25T08:35Z

Jag har gjort en liten datum sub...

```
Sub subGetYear
	Dim I
		Response.Write "<option value=""novalue"">-----</option>"
			For I = 1801 To Left(now,4)
			Response.Write "<option"
			If Left(CInt(objRS("userAlder")),4) = I Then Repsonse.Write " SELECTED"
			Response.Write ">" & I & "</option>" & vbcrlf
		Next
End Sub
```

Det funkar jättefint, har även för Månad och dag, fyller jag i så får jag exempelvis 1982-06-27 i databasen..

**Problemet:**
När jag sedan går in på sidan igen och vill kolla på min info så vill jag ju att det året jag redan har fyllt i skall vara valt! varför funkar inte min IF-sats?

Permalänk: https://www.webforum.nu/p/46568

## #2 — @nders, 2002-06-25T08:38Z

> Re**ps**onse.Write

Kan den felskrivningen ha något med problemet att göra?
Jag tycker dock att du ska använda funktionen Year() istället för att köra strängfunktionen Left() på datumvärdena.

Mvh,

Permalänk: https://www.webforum.nu/p/705017

## #3 — @nders, 2002-06-25T08:40Z

Dessutom, din Cint() ligger på fel ställe.

```
If CInt(Left(objRS("userAlder"),4)) = I Then Response.Write " SELECTED"
```

Mvh,

Permalänk: https://www.webforum.nu/p/705018

## #4 — roady, 2002-06-25T08:46Z

hmm, använder Datum funktioner alldeles för dåligt...

Men det här funkar i alla fall

```
Sub subGetYear
	Dim I
		Response.Write "<option value=""novalue"">-----</option>" & vbcrlf
			For I = 1901 To Year(now)
			Response.Write "<option value=""" & I & """"
			If Year(objRS("userAlder")) = I Then Response.Write " SELECTED"
			Response.Write ">" & I & "</option>" & vbcrlf
		Next
End Sub
```

Permalänk: https://www.webforum.nu/p/705025

---

Tråden på webben: https://www.webforum.nu/amne/asp/46568-datum