Analoge tijd omrekenen

[stefaan312]

Hi, ik heb in een form drie textboxen geplaatst.
Een waar ik een tijd ingeef. bv 03:15.
In de twee de heb ik die waarde omgezet naar tijdswaarde "mm:ss".
In de derde wil ik de digitale tijd krijgen.
dus in geval van voorbeeld 3:15 * 24 = 3,25.

Kan iemand mij helpen?

Stefaan

 

[edmoor]

Gebruik dit: cel = Cstr(TextBox2.Text)

 

[snb]

Waarom plaats je een leeg Excelbestand ?

 

[stefaan312]

Handig van mij.
In bestand zou nu de form aanwezig moeten zijn.

Stefaan

 

[edmoor]

En je hebt het al getest?
Dat document is overigens nog steeds leeg.

 

[stefaan312]

Nu zou het er wel moeten instaan

 

[stefaan312]

En je hebt het al getest?

Heb het er eens ingezet maar kreeg nog altijd typen komen niet overeen.

 

[edmoor]

EN waar moet die tijd dan naar toe?

 

[stefaan312]

Is onderdeel van een andere form. De tijd ik dan krijg gebruik ik om een andere berekening te doen en nadien uit te printen in een Sheet.
Dat deel krijg ik in orde. Moet gewoon de ingegeven tijd digitaal krijgen zodat ik ermee kan rekenen.

 

[edmoor]

Dan kan je dit gebruiken:

TimeValue(ttijd.Text)

Als je daar bijvoorbeeld 2 uren bij wilt optellen doe je dit:

TimeValue(ttijd.Text) + (2 / 24)

 

[stefaan312]

heb het als volgt opgelost:

Private Sub CommandButton1_Click()
Dim mytime As Double
mytime = TimeValue(itijd.Text) * 24
dtijd.Value = mytime
End Sub

Bleef fouten geven moment dat ik dat : in de tijd ingaf. Met de button erbij doet hij het wel.

 

[edmoor]

Gebruik niet de _Change van die TextBox.
Daarnaast kan je er beter voor zorgen dat er alleen cijfers en een dubbele punt ingegeven mogen worden.

 

[stefaan312]

nog een vraagje:
om al mijn velden naar Excel over te brengen heb ik het volgende:
werkt, behalve dat de twee laatste velden overgebracht worden met een . ipv een ,
dact het op te lossen door die replace.
maar geeft een ongeldige kwalificatiefout. op graveerkostkom.

keuze = MsgBox("opslaan ?", vbQuestion + vbYesNo, "opslaan?")

Select Case keuze

Case vbYes

Dim totaalkom As String
Dim graveerkostkom As String
totaalkom = Replace(Totaal.Value, ".", ",")
graveerkostkom = Replace(Graveerkost.Value, ".", ",")


With Sheets("print").Range("A" & Rows.Count).End(xlUp)
.Offset(1) = datum1.Value
.Offset(1, 1) = Soort_product.Value
.Offset(1, 2).Value = Leverancier.Value
.Offset(1, 3).Value = iGraveertijd.Value
.Offset(1, 4).Value = Digitaletijd.Value
.Offset(1, 5).Value = Prijs.Value
.Offset(1, 6).Value = marge.Value
.Offset(1, 7).Value = verkoopprijs.Value
.Offset(1, 8).Value = graveerkostkom.Value
.Offset(1, 9).Value = totaalkom.Value




End With

 

[snb]

Sheets("print").cells(Rows.Count,1).End(xlUp).offset(1).resize(,10)=array(datum1,Soort_product,Leverancier,Graveertijd,Digitaletijd,Prijs,marge,verkoopprijs,graveerkostkom,totaalkom)

 

[stefaan312]

krijg daar volgende foutmelding op:
[h=2]Door de toepassing of door object gedefinieerde fout [/h]

 

[snb]

Dan moet je de namen van de objecten in het UF nog maar eens even controleren.

 

[stefaan312]

Alles nagekeken maar zie het niet .

 

[alphamax]

Haal de "kom" weg uit

.Offset(1, 8).Value = graveerkost[COLOR="#FF0000"]kom[/COLOR].Value
.Offset(1, 9).Value = totaal[COLOR="#FF0000"]kom[/COLOR].Value

With Sheets("print").Range("A" & Rows.Count).End(xlUp)
            .Offset(1) = datum1.Value
            .Offset(1, 1) = Soort_product.Value
            .Offset(1, 2).Value = Leverancier.Value
            .Offset(1, 3).Value = iGraveertijd.Value
            .Offset(1, 4).Value = Digitaletijd.Value
            .Offset(1, 5).Value = Prijs.Value
            .Offset(1, 6).Value = marge.Value
            .Offset(1, 7).Value = verkoopprijs.Value
            .Offset(1, 8).Value = Graveerkost.Value
            .Offset(1, 9).Value = Totaal.Value
        End With

 

[stefaan312]

Werkt dan wel, weet ik. probleem is dan dat graveerkost en totaal met een punt ipv een komma in Excel komen.

 

[HSV]

krijg daar volgende foutmelding op:
Door de toepassing of door object gedefinieerde fout

Maak van het rode gedeelte Cells.

Sheets("print").[COLOR=#ff0000]Range[/COLOR](Rows.Count,1).End(xlUp).offset(1).resize(,10)=array(datum1,Soort_product,Leverancier,Graveertijd,Digitaletijd,Prijs,marge,verkoopprijs,graveerkostkom,totaalkom)