powerpoint VBA

[moensk]

ik heb een script voor een digitale klok in mijn ppt.
kan iemand deze aanpassen zodat hij 24u notatie weergeeft ipv 12u notatie

Public clock As Boolean
Public currenttime, currentday As String


Sub Pause()
Dim PauseTime, start
PauseTime = 1
start = Timer
Do While Timer < start + PauseTime
DoEvents
Loop
End Sub

Sub StartClock()
clock = True
Do Until clock = False
On Error Resume Next
currenttime = Format((Now()), "hh:mm:ss AM/PM")
currenttime = Mid(currenttime, 1, Len(currenttime) - 6)
ActivePresentation.Slides(SlideShowWindows(1).View.CurrentShowPosition).Shapes("Betty").TextFrame.TextRange.Text = currenttime
Pause
Loop
End Sub


Sub OnSlideShowTerminate()
clock = False
End Sub

 

[edmoor]

Maak er dit van:

currenttime = Format((Now()), "hh:mm:ss")

 

[moensk]

thanks - en 2de regel currenttime verwijdert en het werkt !

 

[edmoor]

Die currenttime kan sowieso weg:

ActivePresentation.Slides(SlideShowWindows(1).View.CurrentShowPosition).Shapes("Betty").TextFrame.TextRange.Text = Format((Now()), "hh:mm:ss")

 

[OctaFish]

En je maakt een zooitje van je declaraties. Neem alleen al dit:

Public currenttime, currentday As String

Wat denk je dat je daar aan het doen bent? Sowieso zou ik een datum altijd als Date of Long definiëren, want het is nu eenmaal een getal, geen tekst. Of Integer, want je wekt de indruk dat je de waarde van een dag gebruikt, en dat zijn per definitie vaste getallen van 1-31. Da's dus zeker geen tekst. Maar ik viel eigenlijk over het eerste deel van je declaratie: wat denk je dat je daar hebt gedefinieerd? Mocht je in de veronderstelling leven dat je daar óók een String te pakken hebt, dan kan ik je uit de droom helpen: dat is, omdat er geen type achter staat, een Variant. Had je dat ook als tekst willen vastleggen, dan had het zo gemoeten:

Public currenttime As String, currentday As String

Dan had je in ieder geval twee verkeerd gedefinieerde variabelen gehad die bij elkaar horen .