berekenen minuten

[kimmy]

Office / Word 2003 pro

Is het mogelijk om in Word een berekening te maken van het verschil in minuten tussen twee tijden.

In cel 1 (tekstvak met datumnotatie HH:mm) staat 10.00
In cel 2 (tekstvak met datumnotatie HH:mm) staat 11.45
In cel 3 (tekstvak met getalnotatie 0) zou dan de uitslag van de berekening moeten komen, namelijk 105 minuten.

Cel 2 en 3 staan in dezelfde tabel, cel 1 in een andere tabel.

Het lijkt me wat veel gevraagd van Word, maar misschien is er toch een oplossing.

 

[PC-user]

Voor word is dit inderdaad wel veel gevraagd, doe het in excel zou ik zeggen, daar lukt het zeker. Desnoods kan je exceltabellen in word plakken als het echt nodig is

 

[kimmy]

Kun je me uitleggen hoe ik dat in Excel doe, ik heb namelijk geen flauw idee.

 

[femda-punt-com]

Word rekent als de beste

Rekenen kan in elk programma, ook in Word. Word rekent als de beste.

Wat je je moet realiseren, is dat Word een tekstverwerker is. De tijd wordt als tekst ingevoerd. Als je die tekst converteert naar een datum/tijd-formaat kun je starttijd van eindtijd aftrekken. Benoem de tekstvelden en gebruik een macro voor de conversie van tekst naar datum en terug (met de functie Format) naar tekst.

In bijgaand document jouw probleem met schermafdrukken als toelichting.

Succes.

 

[joost verdaasdo]

Hai Kimmy,

Was de oplossing van Frits niet voldoende? (volgens mij werkt deze goed)

Laat ff-kes horen? :thumb:

 

[kimmy]

Sorry, ik heb nog geen tijd gehad om het te testen, hoop dit het weekend te kunnen doen.

Ik laat zeker wat van me horen.

 

[joost verdaasdo]

Daar is Kimmy! (we wachten in spanning af)

 

[kimmy]

Daar ben ik dan ....

Hartelijk dank Frits, het voorbeeld ziet er zeer duidelijk uit :thumb:

Het is me zelfs gelukt om twee berekingen te laten werken met dezelfde begintijd/tekstvak.

Nog een laatste vraag, de berekende tijd wordt aangegeven in HH:mm formaat, kan deze ook alleen in minuten worden aangegeven.
Dus bijvoorbeeld 90 minuten i.p.v. 01:30 uur.

 

[femda-punt-com]

Functie: DateDiff()

In bijgaand document zoals je het wilt.

Routine luidt nu:
------------------------------------------------------------

Sub BerekenTijdVerschilInMinuten()

  Dim varStart As Variant
  Dim varEinde As Variant

  With ActiveDocument
    varStart = .FormFields("bmStarttijd").Result
    varEinde = .FormFields("bmEindtijd").Result
    If IsDate(varStart) And IsDate(varEinde) Then
        .FormFields("bmVerschil").Result = _
          DateDiff("n", CDate(varStart), CDate(varEinde))
    End If
  End With

End Sub

 

[joost verdaasdo]

Hai Kimmy & Frits,

Frits je was me voor! ;-)

Mooie oplossing! :thumb:

 

[kimmy]

Het werkt prima, bedankt !