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 Vilken djä... formel. Du är för dålig på att förklara vad du vill. Option Explicit Varför inte bara såhär? Ja Gud vad du krånglar till det Anders. Den där Anders är en "sleeper" Kualabjörn. tack för hjälpen ska testa det, ja har för närvarande inget internet hemma Option Explicit 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.för o få rätt veckodag på rätt datum
men ja e tacksam för fler idéer
/tobbenSv: för o få rätt veckodag på rätt datum
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.Sv:för o få rätt veckodag på rätt datum
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 SubSv: för o få rätt veckodag på rätt datum
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
PS
Observera att när du dimensionerar variabler såsom du gör överst i din kod:
Dim y, d, c, n, m, hoger, vanster, dag1, ar, veckodag As Integer
så är det bara veckodag som kommer att dimensioneras som Integer, resten blir Variant. Om du vill att alla ska vara Integers så måste du ange det:
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
Sv:för o få rätt veckodag på rätt datum
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=1556Sv: för o få rätt veckodag på rätt datum
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 tangoSv:för o få rätt veckodag på rätt datum
sorry
/AndersSv:för o få rätt veckodag på rätt datum
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?
/andersSv: för o få rätt veckodag på rätt datum