Formeln som ja fick gjorde att ja bara fick rätt på en månad o ja vet ej om ja tänkt konstigt när ja skrivit den
men ja e tacksam för fler idéer

/tobben

Vilken djä... formel. Du är för dålig på att förklara vad du vill.

Vi är duktiga här i Forumet, men tankeläsning är inte en av våra gåvor.

Skriv vad det är du vill åstadkomma. Gammalt "shit" har Vi redan glömt. "Töm och glöm"

Jag skall hjälpa dig . Men då skall du svara på följande.

Jag matar in ett Datum i form av ? .................................
Jag vill ha ut svar ...................................

Visa med ett exempel vad du vill.

ok ja visar ett resultat istället

Option Explicit
Dim y, d, c, n, m, hoger, vanster, dag1, ar, veckodag As Integer
Dim title, leftword, rightword As String
Dim k2, j2 As Integer




Private Sub cmd_berakna_Click()
ar = txt_ar.Text
d = txt_dag.Text
m = txt_manad.Text

title = txt_ar.Text
leftword = Left(title, 2)
vanster = Int(leftword)
c = vanster

k2 = Int(n / 4)
j2 = Int(c / 4)

rightword = Right(title, 2)
hoger = Int(rightword)
n = hoger
txt_n.Text = Int(n)



txt_c.Text = Int(c)

'dag = d
'månad = m
' år = y
' c är första 2 siffrorna av y
'n är 2 sista siffrorna av y
'veckodag = 0
'txt_veckodag.Text = ""
veckodag = (Int(2.6 * m - 5.39) + k2 + j2 + d + n - (2 * c)) Mod 7
dag1 = veckodag
txt.Text = veckodag


Select Case dag1
Case 0
txt_veckodag.Text = "Söndag"
Case 1
txt_veckodag.Text = "Måndag"
Case 2
txt_veckodag.Text = "Tisdag"
Case 3
txt_veckodag.Text = "Onsdag"
Case 4
txt_veckodag.Text = "Torsdag"
Case 5
txt_veckodag.Text = "Fredag"
Case 6
txt_veckodag.Text = "Lördag"
End Select





End Sub



Private Sub cmd_dag_plus_Click()
d = d + 1
txt_dag.Text = d

End Sub

Private Sub Form_Load()
ar = 2008
d = 1
m = 11
txt_ar.Text = ar
txt_manad.Text = d
txt_dag.Text = m



End Sub



Private Sub txt_ar_Change()
ar = txt_ar.Text
End Sub

Private Sub txt_dag_Change()
d = txt_dag.Text
End Sub

Varför inte bara såhär?

Option Explicit

Private Sub cmdBerakna()
    FixDate
End Sub

Private Sub Form_Load()
    txt_ar.Text = "2008"
    txt_manad.Text = "11"
    txt_dag.Text = "1"
    FixDate
End Sub

Private Sub FixDate()
    Dim lAr As Integer
    Dim lManad As Integer
    Dim lDag As Integer
    Dim dtDatum As Date
    
    On Error GoTo NoDate
    
    lAr = CInt(txt_ar.Text)
    lManad = CInt(txt_manad.Text)
    lDag = CInt(txt_dag.Text)
    
    dtDatum = DateSerial(lAr, lManad, lDag)
    txt_datum = Format$(dtDatum, "yyyy-MM-dd")
    txt_veckodag = Format$(dtDatum, "dddd", vbMonday, vbFirstFourDays)
    
    Exit Sub

NoDate:
    txt_veckodag.Text = "inget datum"
    txt_datum.Text = "inget datum"
End Sub

Dim y, d, c, n, m, hoger, vanster, dag1, ar, veckodag As Integer

Dim y As Integer, d As Integer, c As Integer, n As Integer, m As Integer
Dim hoger As Integer, vanster As Integer, dag1 As Integer, ar As Integer, veckodag As Integer

Ja Gud vad du krånglar till det Anders.
Alla funktioner finns ju redan i VB6
Kolla min gamla VB skola. Öppna Grundkurs.doc sök på ordet <b>Format$</b>
Programarkivet:VB skola elementärt

Provkör detta enkla exempel.
Lägg upp en CmdButton och en ListBox en TextBox

Använd inte Integer i VB6 ändra alla till Long !
<code>
Option Explicit
Dim lngDate As Long
Private Sub Form_Load()
Text1.Text = "2008-12-02"
End Sub
Private Sub Command1_Click()
lngDate = CDate(Text1.Text)
List1.AddItem Format$(lngDate, "yyyy")
List1.AddItem Format$(lngDate, "mm")
List1.AddItem Format$(lngDate, "mmmm")
List1.AddItem Format$(lngDate, "dd")
List1.AddItem Format$(lngDate, "dddd", vbMonday)
'kombinera efter behov, plocka vilken del du vill ha och lägg in i en variabel
End Sub
</code>
http://msdn.microsoft.com/en-us/library/aa262745(VS.60).aspx

Kolla även alla mina alster i programarkivet
http://www.pellesoft.se/communicate/userprogram/default.aspx?uid=1556

Den där Anders är en "sleeper" Kualabjörn.
Här engagerar man sig . Men icke fae... blir det nån respons.

Jag bryr mig inte så mycket, men det är alltid trevligt med "FeedBack" dåligt som gott FEEDBACK !

Nu har det gått 5 d sedan han hörde av sig. "Säg något , eller skit så att man hör att det är liv i dig"

Man måste vara två för att dansa tango

tack för hjälpen ska testa det, ja har för närvarande inget internet hemma
sorry

/Anders

Option Explicit
Dim lngDate As Long

Private Sub Form_Load() ...
Private Sub Form_Load()
Text1.Text = "2008-12-02"
End Sub
Private Sub Command1_Click() ...
Private Sub Command1_Click()
lngDate = CDate(Text1.Text)
List1.AddItem Format$(lngDate, "yyyy")
List1.AddItem Format$(lngDate, "mm")
List1.AddItem Format$(lngDate, "mmmm")
List1.AddItem Format$(lngDate, "dd")
List1.AddItem Format$(lngDate, "dddd", vbMonday)
'kombinera efter behov, plocka vilken del du vill ha och lägg in i en variabel
End Sub


dessa kodsnutter passade mig som handen i hansken så tack för hjälpen

e det nu som ja behöver avsluta denna fråga?

/anders

Ang "e det nu som ja behöver avsluta denna fråga?", om du anser problemet löst så markerar du tråden som löst.

finns det andra roliga sätt o lösa det på?